diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-04-15 00:00:00 +0000 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-15 00:00:00 +1200 |
| commit | 12c5d27a30700a469ee068632587ba3fb5c99a7d (patch) | |
| tree | 0bf4d2f3983b1b1d640a3d2ec0cb2b28eb11980b /lib/CGI | |
| parent | 81d89818b14a58709196b737cc40cc7e9778b89d (diff) | |
| download | perl-12c5d27a30700a469ee068632587ba3fb5c99a7d.tar.gz | |
Refresh CGI to 2.34
Diffstat (limited to 'lib/CGI')
| -rw-r--r-- | lib/CGI/Apache.pm | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/lib/CGI/Apache.pm b/lib/CGI/Apache.pm index 6666f19b55..61b55f5205 100644 --- a/lib/CGI/Apache.pm +++ b/lib/CGI/Apache.pm @@ -4,10 +4,16 @@ use vars qw(@ISA $VERSION); require CGI; @ISA = qw(CGI); -$VERSION = (qw$Revision: 1.00 $)[1]; +$VERSION = (qw$Revision: 1.01 $)[1]; $CGI::DefaultClass = 'CGI::Apache'; $CGI::Apache::AutoloadClass = 'CGI'; +sub import { + my $self = shift; + my ($callpack, $callfile, $callline) = caller; + ${"${callpack}::AutoloadClass"} = 'CGI'; +} + sub new { my($class) = shift; my($r) = Apache->request; @@ -75,10 +81,17 @@ When using the Perl-Apache API, your applications are faster, but the enviroment is different than CGI. This module attempts to set-up that environment as best it can. -=head1 NOTE +=head1 NOTE 1 This module used to be named Apache::CGI. Sorry for the confusion. +=head1 NOTE 2 + +If you're going to inherit from this class, make sure to "use" it +after your package declaration rather than "require" it. This is +because CGI.pm does a little magic during the import() step in order +to make autoloading work correctly. + =head1 SEE ALSO perl(1), Apache(3), CGI(3) |