summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/CGI.pm11
-rw-r--r--lib/ExtUtils/Command.pm2
-rw-r--r--lib/Text/ParseWords.pm10
-rw-r--r--lib/autouse.pm2
4 files changed, 16 insertions, 9 deletions
diff --git a/lib/CGI.pm b/lib/CGI.pm
index 3ddd4d999b..4651e138a3 100644
--- a/lib/CGI.pm
+++ b/lib/CGI.pm
@@ -29,7 +29,7 @@ $AUTOLOAD_DEBUG=0;
$NPH=0;
$CGI::revision = '$Id: CGI.pm,v 2.32 1997/3/19 10:10 lstein Exp $';
-$CGI::VERSION='2.32';
+$CGI::VERSION='2.3201';
# OVERRIDE THE OS HERE IF CGI.pm GUESSES WRONG
# $OS = 'UNIX';
@@ -87,7 +87,9 @@ $SL = {
$NPH++ if defined($ENV{'SERVER_SOFTWARE'}) && $ENV{'SERVER_SOFTWARE'}=~/IIS/;
# Turn on special checking for Doug MacEachern's modperl
-if ($MOD_PERL = $ENV{'GATEWAY_INTERFACE'} =~ /^CGI-Perl/) {
+if (defined($MOD_PERL = $ENV{'GATEWAY_INTERFACE'}) &&
+ $MOD_PERL =~ /^CGI-Perl/)
+{
$NPH++;
$| = 1;
$SEQNO = 1;
@@ -2697,6 +2699,11 @@ __END__
CGI - Simple Common Gateway Interface Class
+=head1 SYNOPSIS
+
+ use CGI;
+ # the rest is too complicated for a synopsis; keep reading
+
=head1 ABSTRACT
This perl library uses perl5 objects to make it easy to create
diff --git a/lib/ExtUtils/Command.pm b/lib/ExtUtils/Command.pm
index 7bdbea9dd7..bdf32d4218 100644
--- a/lib/ExtUtils/Command.pm
+++ b/lib/ExtUtils/Command.pm
@@ -16,7 +16,7 @@ $VERSION = '1.00';
ExtUtils::Command - utilities to replace common UNIX commands in Makefiles etc.
-=head1 SYNOPSYS
+=head1 SYNOPSIS
perl -MExtUtils::command -e cat files... > destination
perl -MExtUtils::command -e mv source... destination
diff --git a/lib/Text/ParseWords.pm b/lib/Text/ParseWords.pm
index ce6f0009fc..bd95b4f204 100644
--- a/lib/Text/ParseWords.pm
+++ b/lib/Text/ParseWords.pm
@@ -1,16 +1,16 @@
package Text::ParseWords;
require 5.000;
-require Exporter;
-require AutoLoader;
use Carp;
-@ISA = qw(Exporter AutoLoader);
+require AutoLoader;
+*AUTOLOAD = \&AutoLoader::AUTOLOAD;
+
+require Exporter;
+@ISA = qw(Exporter);
@EXPORT = qw(shellwords quotewords);
@EXPORT_OK = qw(old_shellwords);
-*AUTOLOAD = *AutoLoader::AUTOLOAD;
-
=head1 NAME
Text::ParseWords - parse text into an array of tokens
diff --git a/lib/autouse.pm b/lib/autouse.pm
index e2ef580392..b3adc34549 100644
--- a/lib/autouse.pm
+++ b/lib/autouse.pm
@@ -3,7 +3,7 @@ package autouse;
#use strict; # debugging only
use 5.003_90; # ->can, for my $var
-$autouse::VERSION = '0.03';
+$autouse::VERSION = '1.00';
my $DEBUG = $ENV{AUTOUSE_DEBUG};