summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Prymmer <PPrymmer@factset.com>2000-12-14 07:50:20 -0800
committerJarkko Hietaniemi <jhi@iki.fi>2000-12-15 15:17:49 +0000
commitf168a5e7e53f96f3b52398f0f6fcaaf6eda02875 (patch)
tree78c440671dcbd55d79a346394d09b82be72c3839
parent98a29390254d3cb423096b6282689bfe2a7e6a13 (diff)
downloadperl-f168a5e7e53f96f3b52398f0f6fcaaf6eda02875.tar.gz
s/use vars qw\(/our(/ for OS/390 extension builds
Message-ID: <Pine.OSF.4.10.10012141548200.57557-100000@aspara.forte.com> p4raw-id: //depot/perl@8126
-rw-r--r--ext/Errno/Errno_pm.PL6
-rw-r--r--lib/ExtUtils/MM_Unix.pm4
-rw-r--r--lib/ExtUtils/Manifest.pm4
-rw-r--r--lib/File/Spec.pm2
-rw-r--r--lib/File/Spec/Functions.pm2
-rw-r--r--lib/File/Spec/Unix.pm2
6 files changed, 9 insertions, 11 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index 9ea60416f6..3e34b90bee 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -2,9 +2,7 @@ use ExtUtils::MakeMaker;
use Config;
use strict;
-use vars qw($VERSION);
-
-$VERSION = "1.111";
+our $VERSION = "1.111";
my %err = ();
@@ -185,7 +183,7 @@ sub write_errno_pm {
#
package Errno;
-use vars qw(\@EXPORT_OK \%EXPORT_TAGS \@ISA \$VERSION \%errno \$AUTOLOAD);
+our (\@EXPORT_OK,\%EXPORT_TAGS,\@ISA,\$VERSION,\%errno,\$AUTOLOAD);
use Exporter ();
use Config;
use strict;
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index c88f8f7a79..50f10d8a8a 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -7,8 +7,8 @@ use Config;
use File::Basename qw(basename dirname fileparse);
use DirHandle;
use strict;
-use vars qw($VERSION $Is_Mac $Is_OS2 $Is_VMS $Is_Win32 $Is_Dos $Is_PERL_OBJECT
- $Verbose %pm %static $Xsubpp_Version);
+our ($Is_Mac,$Is_OS2,$Is_VMS,$Is_Win32,$Is_Dos,$Is_PERL_OBJECT,
+ $Verbose,%pm,%static,$Xsubpp_Version);
our $VERSION = '1.12603';
diff --git a/lib/ExtUtils/Manifest.pm b/lib/ExtUtils/Manifest.pm
index 46ace64e61..030eedffeb 100644
--- a/lib/ExtUtils/Manifest.pm
+++ b/lib/ExtUtils/Manifest.pm
@@ -8,8 +8,8 @@ use File::Spec::Functions qw(splitpath);
use Carp;
use strict;
-use vars qw($VERSION @ISA @EXPORT_OK
- $Is_VMS $Debug $Verbose $Quiet $MANIFEST $found $DEFAULT_MSKIP);
+our ($VERSION,@ISA,@EXPORT_OK,
+ $Is_VMS,$Debug,$Verbose,$Quiet,$MANIFEST,$found,$DEFAULT_MSKIP);
$VERSION = substr(q$Revision: 1.33 $, 10);
@ISA=('Exporter');
diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
index 3f79d74b66..35707cc780 100644
--- a/lib/File/Spec.pm
+++ b/lib/File/Spec.pm
@@ -1,7 +1,7 @@
package File::Spec;
use strict;
-use vars qw(@ISA $VERSION);
+our(@ISA, $VERSION);
$VERSION = 0.82 ;
diff --git a/lib/File/Spec/Functions.pm b/lib/File/Spec/Functions.pm
index 0036ac1ded..be653338fa 100644
--- a/lib/File/Spec/Functions.pm
+++ b/lib/File/Spec/Functions.pm
@@ -3,7 +3,7 @@ package File::Spec::Functions;
use File::Spec;
use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
+our (@ISA,@EXPORT,@EXPORT_OK,%EXPORT_TAGS,$VERSION);
$VERSION = '1.1';
diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
index a81c533235..4e4cc753aa 100644
--- a/lib/File/Spec/Unix.pm
+++ b/lib/File/Spec/Unix.pm
@@ -1,7 +1,7 @@
package File::Spec::Unix;
use strict;
-use vars qw($VERSION);
+our($VERSION);
$VERSION = '1.2';