view release on metacpan or  search on metacpan

lib/CGI/Out.pm  view on Meta::CPAN

44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
        $out = '';
        @saveA = @ARGV;
        $pwd = getcwd();
        $zero = $0;
        %e = %ENV;
 
        # idiom.com specific feature:
        $pwd = "$Chroot::has_chrooted$pwd"
                if defined $Chroot::has_chrooted;
 
        $usedby = join(':',(caller(2))[1,2]);
 
        &error("Cannot combine CGI::Out ($usedby) and CGI::Wrap ($CGI::Wrap::usedby)")
                if defined @CGI::Wrap::EXPORT;
}
 
 
sub savequery
{
        ($query) = (@_);
}

lib/CGI/Wrap.pm  view on Meta::CPAN

27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
        $out = '';
        @saveA = @ARGV;
        $pwd = getcwd();
        $zero = $0;
        %e = %ENV;
 
        # idiom.com specific feature:
        $pwd = "$Chroot::has_chrooted$pwd"
                if defined $Chroot::has_chrooted;
 
        $usedby = join(':',(caller(2))[1,2]);
 
        if (defined @CGI::Out::EXPORT) {
                require CGI::BigDeath;
                bigdeath('', '', "Cannot combine CGI::Wrap ($usedby) with CGI::Out ($CGI::Out::usedby)",
                        \%e, $query, $pwd, $zero, \@saveA, $debug, $mailto);
                exit(1);
        }
}
 
sub savequery