From: Peter Prymmer Date: Thu, 14 Dec 2000 15:50:20 +0000 (-0800) Subject: s/use vars qw\(/our(/ for OS/390 extension builds X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f168a5e7e53f96f3b52398f0f6fcaaf6eda02875;p=p5sagit%2Fp5-mst-13.2.git s/use vars qw\(/our(/ for OS/390 extension builds Message-ID: p4raw-id: //depot/perl@8126 --- diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index 9ea6041..3e34b90 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 c88f8f7..50f10d8 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 46ace64..030eedf 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 3f79d74..35707cc 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 0036ac1..be65333 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 a81c533..4e4cc75 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';