tags/v1_29/t/net/perl/dirty-script.cgi

#!perl
local $^W = 0;
unshift @INC, 
       -e "dirty-lib" ? '.' :
       Apache->server_root_relative("net/perl");
require "dirty-lib";
shift @INC;

unless (defined(&not_ina_package) && not_ina_package()) {
    die "%INC save/restore broken";
}

print "Content-type: text/plain\n\n";

open FH, $0 or die $!;

sub subroutine {}
*code_alias = \&Outside::code;
*hash_alias = \%Outside::hash;
*array_alias = \@Outside::array;
*scalar_alias = \$Outside::scalar;

push @array, 1;

$scalar++;

$hash{key}++;

print __PACKAGE__, " is dirty";

exit;

__END__