Skip to content

Commit

Permalink
Merge pull request #23 from mauke/patch-1
Browse files Browse the repository at this point in the history
replace 'use vars' by 'our'
  • Loading branch information
leejo authored Nov 13, 2023
2 parents 280de79 + 58c6af1 commit 28843ca
Showing 1 changed file with 4 additions and 8 deletions.
12 changes: 4 additions & 8 deletions lib/CGI/Fast.pm
Original file line number Diff line number Diff line change
Expand Up @@ -8,15 +8,11 @@ $CGI::Fast::VERSION='2.16';
use CGI;
use CGI::Carp;
use FCGI;
# use vars works like "our", but is compatible with older Perls.
use vars qw(
@ISA
$ignore
);
@ISA = ('CGI');

our @ISA = ('CGI');

# workaround for known bug in libfcgi
while (($ignore) = each %ENV) { }
while (() = each %ENV) { }

# override the initialization behavior so that
# state is NOT maintained between invocations
Expand All @@ -26,7 +22,7 @@ sub save_request {

# If ENV{FCGI_SOCKET_PATH} is specified, we maintain a FCGI Request handle
# in this package variable.
use vars qw($Ext_Request $socket $socket_perm $queue);
our ($Ext_Request, $socket, $socket_perm, $queue);

sub import {
my ($package,@import) = @_;
Expand Down

0 comments on commit 28843ca

Please sign in to comment.