PERLDB_OPTS="nonStop=1 autoTrace=1" perl -d -e 0
main::(-e:1): 0
PERLDB_OPTS="non auto" perl -MCGI -d -e 0
CGI::CODE(0x824b388)(/usr/local/lib/perl5/5.8.8/CGI.pm:3):
3: use Carp 'croak';
CGI::CODE(0x824b388)(/usr/local/lib/perl5/5.8.8/CGI.pm:3):
3: use Carp 'croak';
CGI::CODE(0x824b388)(/usr/local/lib/perl5/5.8.8/CGI.pm:3):
3: use Carp 'croak';
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:30):
30: my $pkg = shift;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:31):
31: my $callpkg = caller($ExportLevel);
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:33):
33: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:39):
39: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:39):
39: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:39):
39: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:40):
40: return export $pkg, $callpkg, @_
41: if $Verbose or $Debug or @$fail > 1;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:42):
42: my $export_cache = ($Cache{$pkg} ||= {});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:43):
43: my $args = @_ or @_ = @$exports;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:45):
45: local $_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:46):
46: if ($args and not %$export_cache) {
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:48):
48: foreach (@$exports, @{"$pkg\::EXPORT_OK"});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:48):
48: foreach (@$exports, @{"$pkg\::EXPORT_OK"});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:47):
47: s/^&//, $export_cache->{$_} = 1
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:50):
50: my $heavy;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:53):
53: if ($args or $fail) {
54: ($heavy = (/\W/ or $args and not exists $export_cache->{$_}
55: or @$fail and $_ eq $fail->[0])) and last
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:56):
56: foreach (@_);
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:56):
56: foreach (@_);
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:61):
61: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:63):
63: sub {require Carp; &Carp::carp};
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
CGI::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI.pm:27):
27: use CGI::Util qw(rearrange make_attributes unescape escape expires ebcdic2
ascii ascii2ebcdic);
CGI::Util::CODE(0x8362c1c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:3):
3: use strict;
CGI::Util::CODE(0x8362c1c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:3):
3: use strict;
CGI::Util::CODE(0x8362c1c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:3):
3: use strict;
strict::import(/usr/local/lib/perl5/5.8.8/strict.pm:28):
28: shift;
strict::import(/usr/local/lib/perl5/5.8.8/strict.pm:29):
29: $^H |= @_ ? bits(@_) : $default_bits;
CGI::Util::CODE(0x8362c28)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:4):
4: use vars qw($VERSION @EXPORT_OK @ISA $EBCDIC @A2E @E2A);
vars::CODE(0x836339c)(/usr/local/lib/perl5/5.8.8/vars.pm:3):
3: use 5.006;
vars::CODE(0x836339c)(/usr/local/lib/perl5/5.8.8/vars.pm:3):
3: use 5.006;
vars::CODE(0x836339c)(/usr/local/lib/perl5/5.8.8/vars.pm:3):
3: use 5.006;
vars::CODE(0x8363480)(/usr/local/lib/perl5/5.8.8/vars.pm:7):
7: use warnings::register;
warnings::register::CODE(0x8363480)(/usr/local/lib/perl5/5.8.8/warnings/register.pm:3):
3: our $VERSION = '1.01';
warnings::register::CODE(0x8363480)(/usr/local/lib/perl5/5.8.8/warnings/register.pm:24):
24: require warnings;
warnings::register::CODE(0x8363480)(/usr/local/lib/perl5/5.8.8/warnings/register.pm:51):
51: 1;
vars::CODE(0x8363480)(/usr/local/lib/perl5/5.8.8/vars.pm:7):
7: use warnings::register;
vars::CODE(0x8363480)(/usr/local/lib/perl5/5.8.8/vars.pm:7):
7: use warnings::register;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:37):
37: shift;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:38):
38: my $package = (caller(0))[0];
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:39):
39: if (! defined $warnings::Bits{$package}) {
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:40):
40: $warnings::Bits{$package} = mkMask($warnings::LAST_BIT);
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:28):
28: my ($bit) = @_;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:29):
29: my $mask = "";
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:31):
31: vec($mask, $bit, 1) = 1;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:32):
32: return $mask;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:41):
41: vec($warnings::Bits{'all'}, $warnings::LAST_BIT, 1) = 1;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:42):
42: $warnings::Offsets{$package} = $warnings::LAST_BIT ++;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:43):
43: foreach my $k (keys %warnings::Bits) {
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:46):
46: $warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT);
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:28):
28: my ($bit) = @_;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:29):
29: my $mask = "";
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:31):
31: vec($mask, $bit, 1) = 1;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:32):
32: return $mask;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:47):
47: vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1;
vars::CODE(0x8363474)(/usr/local/lib/perl5/5.8.8/vars.pm:8):
8: use strict qw(vars subs);
vars::CODE(0x8363474)(/usr/local/lib/perl5/5.8.8/vars.pm:8):
8: use strict qw(vars subs);
vars::CODE(0x8363474)(/usr/local/lib/perl5/5.8.8/vars.pm:8):
8: use strict qw(vars subs);
strict::import(/usr/local/lib/perl5/5.8.8/strict.pm:28):
28: shift;
strict::import(/usr/local/lib/perl5/5.8.8/strict.pm:29):
29: $^H |= @_ ? bits(@_) : $default_bits;
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:12):
12: my $bits = 0;
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:13):
13: my @wrong;
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:14):
14: foreach my $s (@_) {
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:15):
15: push @wrong, $s unless exists $bitmask{$s};
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:16):
16: $bits |= $bitmask{$s} || 0;
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:15):
15: push @wrong, $s unless exists $bitmask{$s};
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:16):
16: $bits |= $bitmask{$s} || 0;
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:18):
18: if (@wrong) {
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:22):
22: $bits;
vars::CODE(0x8362c28)(/usr/local/lib/perl5/5.8.8/vars.pm:5):
5: our $VERSION = '1.01';
vars::CODE(0x8362c28)(/usr/local/lib/perl5/5.8.8/vars.pm:46):
46: 1;
47: __END__
CGI::Util::CODE(0x8362c28)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:4):
4: use vars qw($VERSION @EXPORT_OK @ISA $EBCDIC @A2E @E2A);
CGI::Util::CODE(0x8362c28)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:4):
4: use vars qw($VERSION @EXPORT_OK @ISA $EBCDIC @A2E @E2A);
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:11):
11: my $callpack = caller;
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:12):
12: my ($pack, @imports) = @_;
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:13):
13: my ($sym, $ch);
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:14):
14: foreach (@imports) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:15):
15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:16):
16: if ($sym =~ /\W/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:28):
28: $sym = "${callpack}::$sym" unless $sym =~ /::/;
29: *$sym =
30: ( $ch eq "\$" ? \$$sym
31: : $ch eq "\@" ? \@$sym
32: : $ch eq "\%" ? \%$sym
33: : $ch eq "\*" ? \*$sym
34: : $ch eq "\&" ? \&$sym
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:35):
35: : do {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:15):
15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:16):
16: if ($sym =~ /\W/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:28):
28: $sym = "${callpack}::$sym" unless $sym =~ /::/;
29: *$sym =
30: ( $ch eq "\$" ? \$$sym
31: : $ch eq "\@" ? \@$sym
32: : $ch eq "\%" ? \%$sym
33: : $ch eq "\*" ? \*$sym
34: : $ch eq "\&" ? \&$sym
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:35):
35: : do {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:15):
15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:16):
16: if ($sym =~ /\W/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:28):
28: $sym = "${callpack}::$sym" unless $sym =~ /::/;
29: *$sym =
30: ( $ch eq "\$" ? \$$sym
31: : $ch eq "\@" ? \@$sym
32: : $ch eq "\%" ? \%$sym
33: : $ch eq "\*" ? \*$sym
34: : $ch eq "\&" ? \&$sym
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:35):
35: : do {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:15):
15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:16):
16: if ($sym =~ /\W/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:28):
28: $sym = "${callpack}::$sym" unless $sym =~ /::/;
29: *$sym =
30: ( $ch eq "\$" ? \$$sym
31: : $ch eq "\@" ? \@$sym
32: : $ch eq "\%" ? \%$sym
33: : $ch eq "\*" ? \*$sym
34: : $ch eq "\&" ? \&$sym
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:35):
35: : do {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:15):
15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:16):
16: if ($sym =~ /\W/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:28):
28: $sym = "${callpack}::$sym" unless $sym =~ /::/;
29: *$sym =
30: ( $ch eq "\$" ? \$$sym
31: : $ch eq "\@" ? \@$sym
32: : $ch eq "\%" ? \%$sym
33: : $ch eq "\*" ? \*$sym
34: : $ch eq "\&" ? \&$sym
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:35):
35: : do {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:15):
15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:16):
16: if ($sym =~ /\W/) {
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:28):
28: $sym = "${callpack}::$sym" unless $sym =~ /::/;
29: *$sym =
30: ( $ch eq "\$" ? \$$sym
31: : $ch eq "\@" ? \@$sym
32: : $ch eq "\%" ? \%$sym
33: : $ch eq "\*" ? \*$sym
34: : $ch eq "\&" ? \&$sym
vars::import(/usr/local/lib/perl5/5.8.8/vars.pm:35):
35: : do {
CGI::Util::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:5):
5: require Exporter;
CGI::Util::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:6):
6: @ISA = qw(Exporter);
CGI::Util::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:7):
7: @EXPORT_OK = qw(rearrange make_attributes unescape escape
8: expires ebcdic2ascii ascii2ebcdic);
CGI::Util::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:10):
10: $VERSION = '1.5';
CGI::Util::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:12):
12: $EBCDIC = "\t" ne "\011";
CGI::Util::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:14):
14: @A2E = (
15: 0, 1, 2, 3, 55, 45, 46, 47, 22, 5, 21, 11, 12, 13, 14, 15,
16: 16, 17, 18, 19, 60, 61, 50, 38, 24, 25, 63, 39, 28, 29, 30, 31,
17: 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97,
18: 240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111,
19: 124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214,
20: 215,216,217,226,227,228,229,230,231,232,233,173,224,189, 95,109,
21: 121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150,
22: 151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161, 7,
23: 32, 33, 34, 35, 36, 37, 6, 23, 40, 41, 42, 43, 44, 9, 10, 27,
24: 48, 49, 26, 51, 52, 53, 54, 8, 56, 57, 58, 59, 4, 20, 62,255,
25: 65,170, 74,177,159,178,106,181,187,180,154,138,176,202,175,188,
26: 144,143,234,250,190,160,182,179,157,218,155,139,183,184,185,171,
27: 100,101, 98,102, 99,103,158,104,116,113,114,115,120,117,118,119,
28: 172,105,237,238,235,239,236,191,128,253,254,251,252,186,174, 89,
29: 68, 69, 66, 70, 67, 71,156, 72, 84, 81, 82, 83, 88, 85, 86, 87,
30: 140, 73,205,206,203,207,204,225,112,221,222,219,220,141,142,223
31: );
CGI::Util::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:32):
32: @E2A = (
33: 0, 1, 2, 3,156, 9,134,127,151,141,142, 11, 12, 13, 14, 15,
34: 16, 17, 18, 19,157, 10, 8,135, 24, 25,146,143, 28, 29, 30, 31,
35: 128,129,130,131,132,133, 23, 27,136,137,138,139,140, 5, 6, 7,
36: 144,145, 22,147,148,149,150, 4,152,153,154,155, 20, 21,158, 26,
37: 32,160,226,228,224,225,227,229,231,241,162, 46, 60, 40, 43,124,
38: 38,233,234,235,232,237,238,239,236,223, 33, 36, 42, 41, 59, 94,
39: 45, 47,194,196,192,193,195,197,199,209,166, 44, 37, 95, 62, 63,
40: 248,201,202,203,200,205,206,207,204, 96, 58, 35, 64, 39, 61, 34,
41: 216, 97, 98, 99,100,101,102,103,104,105,171,187,240,253,254,177,
42: 176,106,107,108,109,110,111,112,113,114,170,186,230,184,198,164,
43: 181,126,115,116,117,118,119,120,121,122,161,191,208, 91,222,174,
44: 172,163,165,183,169,167,182,188,189,190,221,168,175, 93,180,215,
45: 123, 65, 66, 67, 68, 69, 70, 71, 72, 73,173,244,246,242,243,245,
46: 125, 74, 75, 76, 77, 78, 79, 80, 81, 82,185,251,252,249,250,255,
47: 92,247, 83, 84, 85, 86, 87, 88, 89, 90,178,212,214,210,211,213,
48: 48, 49, 50, 51, 52, 53, 54, 55, 56, 57,179,219,220,217,218,159
49: );
CGI::Util::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:51):
51: if ($EBCDIC && ord('^') == 106) { # as in the BS2000 posix-bc coded character set
CGI::Util::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI/Util.pm:284):
284: 1;
CGI::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI.pm:27):
27: use CGI::Util qw(rearrange make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic);
CGI::CODE(0x81fa82c)(/usr/local/lib/perl5/5.8.8/CGI.pm:27):
27: use CGI::Util qw(rearrange make_attributes unescape escape expires ebcdic2ascii ascii2ebcdic);
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:30):
30: my $pkg = shift;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:31):
31: my $callpkg = caller($ExportLevel);
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:33):
33: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:39):
39: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:39):
39: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:39):
39: my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:40):
40: return export $pkg, $callpkg, @_
41: if $Verbose or $Debug or @$fail > 1;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:42):
42: my $export_cache = ($Cache{$pkg} ||= {});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:43):
43: my $args = @_ or @_ = @$exports;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:45):
45: local $_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:46):
46: if ($args and not %$export_cache) {
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:48):
48: foreach (@$exports, @{"$pkg\::EXPORT_OK"});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:48):
48: foreach (@$exports, @{"$pkg\::EXPORT_OK"});
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:47):
47: s/^&//, $export_cache->{$_} = 1
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:50):
50: my $heavy;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:53):
53: if ($args or $fail) {
54: ($heavy = (/\W/ or $args and not exists $export_cache->{$_}
55: or @$fail and $_ eq $fail->[0])) and last
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:56):
56: foreach (@_);
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:56):
56: foreach (@_);
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:61):
61: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:63):
63: sub {require Carp; &Carp::carp};
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
Exporter::import(/usr/local/lib/perl5/5.8.8/Exporter.pm:65):
65: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
CGI::CODE(0x81fa790)(/usr/local/lib/perl5/5.8.8/CGI.pm:33):
33: 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'];
constant::CODE(0x831c320)(/usr/local/lib/perl5/5.8.8/constant.pm:3):
3: use strict;
constant::CODE(0x831c320)(/usr/local/lib/perl5/5.8.8/constant.pm:3):
3: use strict;
constant::CODE(0x831c320)(/usr/local/lib/perl5/5.8.8/constant.pm:3):
3: use strict;
strict::import(/usr/local/lib/perl5/5.8.8/strict.pm:28):
28: shift;
strict::import(/usr/local/lib/perl5/5.8.8/strict.pm:29):
29: $^H |= @_ ? bits(@_) : $default_bits;
constant::CODE(0x831e948)(/usr/local/lib/perl5/5.8.8/constant.pm:4):
4: use 5.006_00;
constant::CODE(0x831e948)(/usr/local/lib/perl5/5.8.8/constant.pm:4):
4: use 5.006_00;
constant::CODE(0x831e948)(/usr/local/lib/perl5/5.8.8/constant.pm:4):
4: use 5.006_00;
constant::CODE(0x831c2cc)(/usr/local/lib/perl5/5.8.8/constant.pm:5):
5: use warnings::register;
constant::CODE(0x831c2cc)(/usr/local/lib/perl5/5.8.8/constant.pm:5):
5: use warnings::register;
constant::CODE(0x831c2cc)(/usr/local/lib/perl5/5.8.8/constant.pm:5):
5: use warnings::register;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:37):
37: shift;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:38):
38: my $package = (caller(0))[0];
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:39):
39: if (! defined $warnings::Bits{$package}) {
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:40):
40: $warnings::Bits{$package} = mkMask($warnings::LAST_BIT);
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:28):
28: my ($bit) = @_;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:29):
29: my $mask = "";
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:31):
31: vec($mask, $bit, 1) = 1;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:32):
32: return $mask;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:41):
41: vec($warnings::Bits{'all'}, $warnings::LAST_BIT, 1) = 1;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:42):
42: $warnings::Offsets{$package} = $warnings::LAST_BIT ++;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:43):
43: foreach my $k (keys %warnings::Bits) {
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:46):
46: $warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT);
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:28):
28: my ($bit) = @_;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:29):
29: my $mask = "";
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:31):
31: vec($mask, $bit, 1) = 1;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:32):
32: return $mask;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:47):
47: vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1;
constant::CODE(0x831b678)(/usr/local/lib/perl5/5.8.8/constant.pm:94):
94: no strict 'refs';
constant::CODE(0x831b678)(/usr/local/lib/perl5/5.8.8/constant.pm:94):
94: no strict 'refs';
constant::CODE(0x831b678)(/usr/local/lib/perl5/5.8.8/constant.pm:94):
94: no strict 'refs';
strict::unimport(/usr/local/lib/perl5/5.8.8/strict.pm:33):
33: shift;
strict::unimport(/usr/local/lib/perl5/5.8.8/strict.pm:34):
34: $^H &= ~ (@_ ? bits(@_) : $default_bits);
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:12):
12: my $bits = 0;
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:13):
13: my @wrong;
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:14):
14: foreach my $s (@_) {
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:15):
15: push @wrong, $s unless exists $bitmask{$s};
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:16):
16: $bits |= $bitmask{$s} || 0;
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:18):
18: if (@wrong) {
strict::bits(/usr/local/lib/perl5/5.8.8/strict.pm:22):
22: $bits;
constant::CODE(0x81fa790)(/usr/local/lib/perl5/5.8.8/constant.pm:7):
7: our($VERSION, %declared);
constant::CODE(0x81fa790)(/usr/local/lib/perl5/5.8.8/constant.pm:8):
8: $VERSION = '1.05';
constant::CODE(0x81fa790)(/usr/local/lib/perl5/5.8.8/constant.pm:13):
13: my %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD };
constant::CODE(0x81fa790)(/usr/local/lib/perl5/5.8.8/constant.pm:15):
15: my %forced_into_main = map +($_, 1),
16: qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG };
constant::CODE(0x81fa790)(/usr/local/lib/perl5/5.8.8/constant.pm:18):
18: my %forbidden = (%keywords, %forced_into_main);
constant::CODE(0x81fa790)(/usr/local/lib/perl5/5.8.8/constant.pm:115):
115: 1;
CGI::CODE(0x81fa790)(/usr/local/lib/perl5/5.8.8/CGI.pm:33):
33: 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'];
CGI::CODE(0x81fa790)(/usr/local/lib/perl5/5.8.8/CGI.pm:32):
32: use constant XHTML_DTD => ['-//W3C//DTD XHTML 1.0 Transitional//EN',
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:29):
29: my $class = shift;
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:30):
30: return unless @_; # Ignore 'use constant;'
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:31):
31: my %constants = ();
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:32):
32: my $multiple = ref $_[0];
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:34):
34: if ( $multiple ) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:41):
41: $constants{+shift} = undef;
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:44):
44: foreach my $name ( keys %constants ) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:45):
45: unless (defined $name) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:49):
49: my $pkg = caller;
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:52):
52: if ($name =~ /^_?[^\W_0-9]\w*\z/ and !$forbidden{$name}) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:94):
94: no strict 'refs';
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:95):
95: my $full_name = "${pkg}::$name";
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:96):
96: $declared{$full_name}++;
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:97):
97: if ($multiple) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:101):
101: if (@_ == 1) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:102):
102: my $scalar = $_[0];
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:103):
103: *$full_name = sub () { $scalar };
Fh::CODE(0x8434a80)(/usr/local/lib/perl5/5.8.8/CGI.pm:3487):
3487: 'fallback'=>1;
overload::CODE(0x84432ec)(/usr/local/lib/perl5/5.8.8/overload.pm:131):
131: use warnings::register;
overload::CODE(0x84432ec)(/usr/local/lib/perl5/5.8.8/overload.pm:131):
131: use warnings::register;
overload::CODE(0x84432ec)(/usr/local/lib/perl5/5.8.8/overload.pm:131):
131: use warnings::register;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:37):
37: shift;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:38):
38: my $package = (caller(0))[0];
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:39):
39: if (! defined $warnings::Bits{$package}) {
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:40):
40: $warnings::Bits{$package} = mkMask($warnings::LAST_BIT);
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:28):
28: my ($bit) = @_;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:29):
29: my $mask = "";
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:31):
31: vec($mask, $bit, 1) = 1;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:32):
32: return $mask;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:41):
41: vec($warnings::Bits{'all'}, $warnings::LAST_BIT, 1) = 1;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:42):
42: $warnings::Offsets{$package} = $warnings::LAST_BIT ++;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:43):
43: foreach my $k (keys %warnings::Bits) {
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:44):
44: vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:46):
46: $warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT);
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:28):
28: my ($bit) = @_;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:29):
29: my $mask = "";
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:31):
31: vec($mask, $bit, 1) = 1;
warnings::register::mkMask(/usr/local/lib/perl5/5.8.8/warnings/register.pm:32):
32: return $mask;
warnings::register::import(/usr/local/lib/perl5/5.8.8/warnings/register.pm:47):
47: vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1;
overload::CODE(0x8434a80)(/usr/local/lib/perl5/5.8.8/overload.pm:3):
3: our $VERSION = '1.04';
overload::CODE(0x8434a80)(/usr/local/lib/perl5/5.8.8/overload.pm:5):
5: $overload::hint_bits = 0x20000; # HINT_LOCALIZE_HH
overload::CODE(0x8434a80)(/usr/local/lib/perl5/5.8.8/overload.pm:96):
96: *StrVal = *AddrRef;
overload::CODE(0x8434a80)(/usr/local/lib/perl5/5.8.8/overload.pm:109):
109: %constants = (
110: 'integer' => 0x1000, # HINT_NEW_INTEGER
111: 'float' => 0x2000, # HINT_NEW_FLOAT
112: 'binary' => 0x4000, # HINT_NEW_BINARY
113: 'q' => 0x8000, # HINT_NEW_STRING
114: 'qr' => 0x10000, # HINT_NEW_RE
115: );
overload::CODE(0x8434a80)(/usr/local/lib/perl5/5.8.8/overload.pm:117):
117: %ops = ( with_assign => "+ - * / % ** << >> x .",
118: assign => "+= -= *= /= %= **= <<= >>= x= .=",
119: num_comparison => "< <= > >= == !=",
120: '3way_comparison'=> "<=> cmp",
121: str_comparison => "lt le gt ge eq ne",
122: binary => "& | ^",
123: unary => "neg ! ~",
124: mutators => '++ --',
125: func => "atan2 cos sin exp abs log sqrt int",
126: conversion => 'bool "" 0+',
127: iterators => '<>',
128: dereferencing => '${} @{} %{} &{} *{}',
129: special => 'nomethod fallback =');
overload::CODE(0x8434a80)(/usr/local/lib/perl5/5.8.8/overload.pm:167):
167: 1;
Fh::CODE(0x8434a80)(/usr/local/lib/perl5/5.8.8/CGI.pm:3487):
3487: 'fallback'=>1;
Fh::CODE(0x8434a80)(/usr/local/lib/perl5/5.8.8/CGI.pm:3485):
3485: '""' => \&asString,
3486: 'cmp' => \&compare,
overload::import(/usr/local/lib/perl5/5.8.8/overload.pm:32):
32: $package = (caller())[0];
overload::import(/usr/local/lib/perl5/5.8.8/overload.pm:34):
34: shift;
overload::import(/usr/local/lib/perl5/5.8.8/overload.pm:35):
35: $package->overload::OVERLOAD(@_);
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:10):
10: $package = shift;
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:11):
11: my %arg = @_;
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:12):
12: my ($sub, $fb);
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:13):
13: $ {$package . "::OVERLOAD"}{dummy}++; # Register with magic by touching.
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:13):
13: $ {$package . "::OVERLOAD"}{dummy}++; # Register with magic by touching.
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:14):
14: *{$package . "::()"} = \&nil; # Make it findable via fetchmethod.
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:14):
14: *{$package . "::()"} = \&nil; # Make it findable via fetchmethod.
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:15):
15: for (keys %arg) {
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:16):
16: if ($_ eq 'fallback') {
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:19):
19: $sub = $arg{$_};
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:20):
20: if (not ref $sub and $sub !~ /::/) {
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:25):
25: *{$package . "::(" . $_} = \&{ $sub };
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:25):
25: *{$package . "::(" . $_} = \&{ $sub };
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:25):
25: *{$package . "::(" . $_} = \&{ $sub };
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:16):
16: if ($_ eq 'fallback') {
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:19):
19: $sub = $arg{$_};
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:20):
20: if (not ref $sub and $sub !~ /::/) {
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:25):
25: *{$package . "::(" . $_} = \&{ $sub };
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:25):
25: *{$package . "::(" . $_} = \&{ $sub };
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:25):
25: *{$package . "::(" . $_} = \&{ $sub };
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:16):
16: if ($_ eq 'fallback') {
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:17):
17: $fb = $arg{$_};
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:28):
28: ${$package . "::()"} = $fb; # Make it findable too (fallback only).
overload::OVERLOAD(/usr/local/lib/perl5/5.8.8/overload.pm:28):
28: ${$package . "::()"} = $fb; # Make it findable too (fallback only).
MultipartBuffer::CODE(0x8440884)(/usr/local/lib/perl5/5.8.8/CGI.pm:3550):
3550: use constant DEBUG => 0;
MultipartBuffer::CODE(0x8440884)(/usr/local/lib/perl5/5.8.8/CGI.pm:3550):
3550: use constant DEBUG => 0;
MultipartBuffer::CODE(0x8440884)(/usr/local/lib/perl5/5.8.8/CGI.pm:3550):
3550: use constant DEBUG => 0;
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:29):
29: my $class = shift;
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:30):
30: return unless @_; # Ignore 'use constant;'
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:31):
31: my %constants = ();
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:32):
32: my $multiple = ref $_[0];
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:34):
34: if ( $multiple ) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:41):
41: $constants{+shift} = undef;
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:44):
44: foreach my $name ( keys %constants ) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:45):
45: unless (defined $name) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:49):
49: my $pkg = caller;
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:52):
52: if ($name =~ /^_?[^\W_0-9]\w*\z/ and !$forbidden{$name}) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:94):
94: no strict 'refs';
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:95):
95: my $full_name = "${pkg}::$name";
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:96):
96: $declared{$full_name}++;
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:97):
97: if ($multiple) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:101):
101: if (@_ == 1) {
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:102):
102: my $scalar = $_[0];
constant::import(/usr/local/lib/perl5/5.8.8/constant.pm:103):
103: *$full_name = sub () { $scalar };
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:2):
2: require 5.004;
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:21):
21: $CGI::revision = '$Id: CGI.pm,v 1.194 2005/12/06 22:12:56 lstein Exp $';
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:22):
22: $CGI::VERSION='3.15';
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:36):
36: local $^W = 0;
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:36):
36: local $^W = 0;
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:37):
37: $TAINTED = substr("$0$^X",0,0);
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:40):
40: $MOD_PERL = 0; # no mod_perl by default
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:41):
41: @SAVED_SYMBOLS = ();
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:128):
128: *end_form = \&endform;
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:131):
131: initialize_globals();
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:46):
46: $AUTOLOAD_DEBUG = 0;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:49):
49: $XHTML = 1;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:53):
53: $DEFAULT_DTD = [ '-//W3C//DTD HTML 4.01 Transitional//EN',
54: 'http://www.w3.org/TR/html4/loose.dtd' ] ;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:60):
60: $NOSTICKY = 0;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:67):
67: $NPH = 0;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:71):
71: $DEBUG = 1;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:78):
78: $PRIVATE_TEMPFILES = 0;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:81):
81: $TABINDEX = 0;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:91):
91: $CLOSE_UPLOAD_FILES = 0;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:95):
95: $POST_MAX = -1;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:98):
98: $DISABLE_UPLOADS = 0;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:101):
101: $EBCDIC = 0;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:104):
104: $HEADERS_ONCE = 0;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:107):
107: $USE_PARAM_SEMICOLONS = 1;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:111):
111: $NO_UNDEF_PARAMS = 0;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:114):
114: undef $Q;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:115):
115: $BEEN_THERE = 0;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:116):
116: $DTD_PUBLIC_IDENTIFIER = "";
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:117):
117: undef @QUERY_PARAM;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:118):
118: undef %EXPORT;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:119):
119: undef $QUERY_CHARSET;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:120):
120: undef %QUERY_FIELDNAMES;
CGI::initialize_globals(/usr/local/lib/perl5/5.8.8/CGI.pm:123):
123: 1;
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:136):
136: unless ($OS) {
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:137):
137: unless ($OS = $^O) {
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:142):
142: if ($OS =~ /^MSWin/i) {
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:157):
157: $OS = 'UNIX';
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:161):
161: $needs_binmode = $OS=~/^(WINDOWS|DOS|OS2|MSWin|CYGWIN)/;
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:164):
164: $DefaultClass = 'CGI' unless defined $CGI::DefaultClass;
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:167):
167: $AutoloadClass = $DefaultClass unless defined $CGI::AutoloadClass;
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:171):
171: $SL = {
172: UNIX => '/', OS2 => '\\', EPOC => '/', CYGWIN => '/',
173: WINDOWS => '\\', DOS => '\\', MACINTOSH => ':', VMS => '/'
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:179):
179: $IIS++ if defined($ENV{'SERVER_SOFTWARE'}) && $ENV{'SERVER_SOFTWARE'}=~/IIS/;
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:182):
182: if (exists $ENV{MOD_PERL}) {
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:199):
199: $PERLEX++ if defined($ENV{'GATEWAY_INTERFACE'}) && $ENV{'GATEWAY_INTERFACE'} =~ /^CGI-PerlEx/;
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:207):
207: $EBCDIC = "\t" ne "\011";
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:208):
208: if ($OS eq 'VMS') {
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:213):
213: $CRLF = "\015\012";
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:216):
216: if ($needs_binmode) {
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:223):
232: ':netscape'=>[qw/blink fontsize center/],
45: ':ssl' => [qw/https/],
246: ':cgi-lib' => [qw/ReadParse PrintHeader HtmlTop HtmlBot SplitParam Vars/],
247: ':html' => [qw/:html2 :html3 :html4 :netscape/],
248: ':standard' => [qw/:html2 :html3 :html4 :form :cgi/],
249: ':push' => [qw/multipart_init multipart_start multipart_end multipart_final/],
250: ':all' => [qw/:html2 :html3 :netscape :form :cgi :internal :html4/]
251: );
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:914):
914: $AUTOLOADED_ROUTINES = ''; # get rid of -w warning
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:915):
915: $AUTOLOADED_ROUTINES=<<'END_OF_AUTOLOAD';
Fh::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3489):
3489: $FH='fh00000';
Fh::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3491):
3491: *Fh::AUTOLOAD = \&CGI::AUTOLOAD;
Fh::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3498):
3498: $AUTOLOADED_ROUTINES = ''; # prevent -w error
Fh::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3499):
3499: $AUTOLOADED_ROUTINES=<<'END_OF_AUTOLOAD';
3500: %SUBS = (
3501: 'asString' => <<'END_OF_FUNC',
3502: sub asString {
3503: my $self = shift;
MultipartBuffer::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3554):
3554: $INITIAL_FILLUNIT = 1024 * 4;
MultipartBuffer::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3555):
3555: $TIMEOUT = 240*60; # 4 hour timeout for big files
MultipartBuffer::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3556):
3556: $SPIN_LOOP_MAX = 2000; # bug fix for some Netscape servers
MultipartBuffer::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3557):
3557: $CRLF=$CGI::CRLF;
MultipartBuffer::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3560):
3560: *MultipartBuffer::AUTOLOAD = \&CGI::AUTOLOAD;
MultipartBuffer::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3568):
3568: $AUTOLOADED_ROUTINES = ''; # prevent -w error
MultipartBuffer::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3569):
3569: $AUTOLOADED_ROUTINES=<<'END_OF_AUTOLOAD';
3570: %SUBS = (
CGITempFile::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3843):
3843: find_tempdir();
CGITempFile::find_tempdir(/usr/local/lib/perl5/5.8.8/CGI.pm:3816):
3816: $SL = $CGI::SL;
CGITempFile::find_tempdir(/usr/local/lib/perl5/5.8.8/CGI.pm:3817):
3817: $MAC = $CGI::OS eq 'MACINTOSH';
CGITempFile::find_tempdir(/usr/local/lib/perl5/5.8.8/CGI.pm:3818):
3818: my ($vol) = $MAC ? MacPerl::Volumes() =~ /:(.*)/ : "";
CGITempFile::find_tempdir(/usr/local/lib/perl5/5.8.8/CGI.pm:3819):
3819: unless (defined $TMPDIRECTORY) {
CGITempFile::find_tempdir(/usr/local/lib/perl5/5.8.8/CGI.pm:3820):
3820: @TEMP=("${SL}usr${SL}tmp","${SL}var${SL}tmp",
3821: "C:${SL}temp","${SL}tmp","${SL}temp",
3822: "${vol}${SL}Temporary Items",
3823: "${SL}WWW_ROOT", "${SL}SYS\$SCRATCH",
3824: "C:${SL}system${SL}temp");
CGITempFile::find_tempdir(/usr/local/lib/perl5/5.8.8/CGI.pm:3825):
3825: unshift(@TEMP,$ENV{'TMPDIR'}) if defined $ENV{'TMPDIR'};
CGITempFile::find_tempdir(/usr/local/lib/perl5/5.8.8/CGI.pm:3836):
3836: foreach (@TEMP) {
CGITempFile::find_tempdir(/usr/local/lib/perl5/5.8.8/CGI.pm:3837):
3837: do {$TMPDIRECTORY = $_; last} if -d $_ && -w _;
CGITempFile::find_tempdir(/usr/local/lib/perl5/5.8.8/CGI.pm:3837):
3837: do {$TMPDIRECTORY = $_; last} if -d $_ && -w _;
CGITempFile::find_tempdir(/usr/local/lib/perl5/5.8.8/CGI.pm:3837):
3837: do {$TMPDIRECTORY = $_; last} if -d $_ && -w _;
CGITempFile::find_tempdir(/usr/local/lib/perl5/5.8.8/CGI.pm:3840):
3840: $TMPDIRECTORY = $MAC ? "" : "." unless $TMPDIRECTORY;
CGITempFile::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3845):
3845: $MAXTRIES = 5000;
CGITempFile::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3849):
3849: *CGITempFile::AUTOLOAD = \&CGI::AUTOLOAD;
CGITempFile::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3861):
3861: $AUTOLOADED_ROUTINES = ''; # prevent -w error
CGITempFile::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3862):
3862: $AUTOLOADED_ROUTINES=<<'END_OF_AUTOLOAD';
3863: %SUBS = (
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3896):
3896: if ($^W) {
CGI::CODE(0x8142938)(/usr/local/lib/perl5/5.8.8/CGI.pm:3908):
3908: 1;
CGI::import(/usr/local/lib/perl5/5.8.8/CGI.pm:282):
282: my $self = shift;
CGI::import(/usr/local/lib/perl5/5.8.8/CGI.pm:285):
285: undef %EXPORT_OK;
CGI::import(/usr/local/lib/perl5/5.8.8/CGI.pm:286):
286: undef %EXPORT;
CGI::import(/usr/local/lib/perl5/5.8.8/CGI.pm:288):
288: $self->_setup_symbols(@_);
CGI::_setup_symbols(/usr/local/lib/perl5/5.8.8/CGI.pm:847):
847: my $self = shift;
CGI::_setup_symbols(/usr/local/lib/perl5/5.8.8/CGI.pm:848):
848: my $compile = 0;
CGI::_setup_symbols(/usr/local/lib/perl5/5.8.8/CGI.pm:851):
851: undef %EXPORT;
CGI::_setup_symbols(/usr/local/lib/perl5/5.8.8/CGI.pm:853):
853: foreach (@_) {
CGI::_setup_symbols(/usr/local/lib/perl5/5.8.8/CGI.pm:886):
886: _compile_all(keys %EXPORT) if $compile;
CGI::_setup_symbols(/usr/local/lib/perl5/5.8.8/CGI.pm:887):
887: @SAVED_SYMBOLS = @_;
CGI::import(/usr/local/lib/perl5/5.8.8/CGI.pm:289):
289: my ($callpack, $callfile, $callline) = caller;
CGI::import(/usr/local/lib/perl5/5.8.8/CGI.pm:293):
293: my @packages = ($self,@{"$self\:\:ISA"});
CGI::import(/usr/local/lib/perl5/5.8.8/CGI.pm:293):
293: my @packages = ($self,@{"$self\:\:ISA"});
CGI::import(/usr/local/lib/perl5/5.8.8/CGI.pm:294):
294: foreach $sym (keys %EXPORT) {
main::(-e:1): 0