[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]
Re: [PATCH lib/lib.pm 5.005_63] Removing use of vars.pm
On Mon, 24 Jan 2000 00:21:34 EST, Michael G Schwern wrote:
>Michael G Schwern <schwern@pobox.com> writes:
>> Is our() nice and stable and happy enough now to start using it for 5.6
>> destined things? Should I sweep the 200 or so occurances of C<use vars>
>> out of the core libraries? (Its a long, boring train ride home)
>
>In light of the our() problems I just ran into, I'd say the answer is
>"No" and I'll hold off on this until I'm sure _64 will contain a fix.
Too late, I've already put this in. :-)
Sarathy
gsar@ActiveState.com
-----------------------------------8<-----------------------------------
Change 4860 by gsar@auger on 2000/01/23 12:23:48
s/use vars/our/g modules that aren't independently maintained on CPAN
Affected files ...
... //depot/perl/ext/B/B/Asmdata.pm#15 edit
... //depot/perl/ext/Data/Dumper/Dumper.pm#13 edit
... //depot/perl/ext/Devel/DProf/DProf.pm#5 edit
... //depot/perl/ext/Fcntl/Fcntl.pm#16 edit
... //depot/perl/ext/File/Glob/Glob.pm#5 edit
... //depot/perl/ext/GDBM_File/GDBM_File.pm#13 edit
... //depot/perl/ext/IO/lib/IO/Dir.pm#3 edit
... //depot/perl/ext/IO/lib/IO/File.pm#10 edit
... //depot/perl/ext/IO/lib/IO/Handle.pm#14 edit
... //depot/perl/ext/IO/lib/IO/Pipe.pm#10 edit
... //depot/perl/ext/IO/lib/IO/Poll.pm#3 edit
... //depot/perl/ext/IO/lib/IO/Seekable.pm#8 edit
... //depot/perl/ext/IO/lib/IO/Socket.pm#17 edit
... //depot/perl/ext/IO/lib/IO/Socket/INET.pm#4 edit
... //depot/perl/ext/IO/lib/IO/Socket/UNIX.pm#3 edit
... //depot/perl/ext/NDBM_File/NDBM_File.pm#10 edit
... //depot/perl/ext/ODBM_File/ODBM_File.pm#10 edit
... //depot/perl/ext/Opcode/Opcode.pm#19 edit
... //depot/perl/ext/Opcode/Safe.pm#8 edit
... //depot/perl/ext/POSIX/POSIX.pm#16 edit
... //depot/perl/ext/SDBM_File/SDBM_File.pm#10 edit
... //depot/perl/ext/Socket/Socket.pm#13 edit
... //depot/perl/ext/Thread/Thread.pm#10 edit
... //depot/perl/lib/AnyDBM_File.pm#8 edit
... //depot/perl/lib/AutoLoader.pm#17 edit
... //depot/perl/lib/AutoSplit.pm#16 edit
... //depot/perl/lib/Class/Struct.pm#10 edit
... //depot/perl/lib/Dumpvalue.pm#5 edit
... //depot/perl/lib/ExtUtils/Command.pm#8 edit
... //depot/perl/lib/ExtUtils/Install.pm#20 edit
... //depot/perl/lib/ExtUtils/Installed.pm#5 edit
... //depot/perl/lib/ExtUtils/Liblist.pm#20 edit
... //depot/perl/lib/ExtUtils/MM_VMS.pm#27 edit
... //depot/perl/lib/ExtUtils/Mksymlists.pm#19 edit
... //depot/perl/lib/ExtUtils/Packlist.pm#4 edit
... //depot/perl/lib/Fatal.pm#3 edit
... //depot/perl/lib/File/Basename.pm#13 edit
... //depot/perl/lib/File/Compare.pm#9 edit
... //depot/perl/lib/File/Copy.pm#13 edit
... //depot/perl/lib/File/Find.pm#19 edit
... //depot/perl/lib/File/Path.pm#17 edit
... //depot/perl/lib/File/stat.pm#6 edit
... //depot/perl/lib/FileHandle.pm#9 edit
... //depot/perl/lib/Math/Complex.pm#13 edit
... //depot/perl/lib/Math/Trig.pm#12 edit
... //depot/perl/lib/Net/Ping.pm#8 edit
... //depot/perl/lib/Net/hostent.pm#8 edit
... //depot/perl/lib/Net/netent.pm#7 edit
... //depot/perl/lib/Net/protoent.pm#6 edit
... //depot/perl/lib/Net/servent.pm#6 edit
... //depot/perl/lib/Shell.pm#8 edit
... //depot/perl/lib/Test.pm#9 edit
... //depot/perl/lib/Test/Harness.pm#24 edit
... //depot/perl/lib/Tie/Array.pm#6 edit
... //depot/perl/lib/Tie/Handle.pm#5 edit
... //depot/perl/lib/Time/gmtime.pm#7 edit
... //depot/perl/lib/Time/localtime.pm#7 edit
... //depot/perl/lib/User/grent.pm#7 edit
... //depot/perl/lib/User/pwent.pm#7 edit
... //depot/perl/lib/base.pm#9 edit
... //depot/perl/lib/caller.pm#3 edit
... //depot/perl/lib/constant.pm#8 edit
... //depot/perl/lib/diagnostics.pm#17 edit
... //depot/perl/lib/fields.pm#12 edit
... //depot/perl/lib/lib.pm#10 edit
... //depot/perl/lib/strict.pm#11 edit
Differences ...
==== //depot/perl/ext/B/B/Asmdata.pm#15 (text+w) ====
Index: perl/ext/B/B/Asmdata.pm
--- perl/ext/B/B/Asmdata.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/B/B/Asmdata.pm Sun Jan 23 04:23:54 2000
@@ -12,7 +12,7 @@
use Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(%insn_data @insn_name @optype @specialsv_name);
-use vars qw(%insn_data @insn_name @optype @specialsv_name);
+our(%insn_data, @insn_name, @optype, @specialsv_name);
@optype = qw(OP UNOP BINOP LOGOP LISTOP PMOP SVOP PADOP PVOP LOOP COP);
@specialsv_name = qw(Nullsv &PL_sv_undef &PL_sv_yes &PL_sv_no);
==== //depot/perl/ext/Data/Dumper/Dumper.pm#13 (text) ====
Index: perl/ext/Data/Dumper/Dumper.pm
--- perl/ext/Data/Dumper/Dumper.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/Data/Dumper/Dumper.pm Sun Jan 23 04:23:54 2000
@@ -13,7 +13,7 @@
#$| = 1;
-require 5.004_02;
+require 5.005_64;
require Exporter;
use XSLoader ();
require overload;
==== //depot/perl/ext/Devel/DProf/DProf.pm#5 (text) ====
Index: perl/ext/Devel/DProf/DProf.pm
--- perl/ext/Devel/DProf/DProf.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/Devel/DProf/DProf.pm Sun Jan 23 04:23:54 2000
@@ -1,4 +1,4 @@
-require 5.003;
+require 5.005_64;
=head1 NAME
==== //depot/perl/ext/Fcntl/Fcntl.pm#16 (text) ====
Index: perl/ext/Fcntl/Fcntl.pm
--- perl/ext/Fcntl/Fcntl.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/Fcntl/Fcntl.pm Sun Jan 23 04:23:54 2000
@@ -42,7 +42,7 @@
=cut
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD);
require Exporter;
use XSLoader ();
==== //depot/perl/ext/File/Glob/Glob.pm#5 (text) ====
Index: perl/ext/File/Glob/Glob.pm
--- perl/ext/File/Glob/Glob.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/File/Glob/Glob.pm Sun Jan 23 04:23:54 2000
@@ -2,8 +2,8 @@
use strict;
use Carp;
-use vars qw($VERSION @ISA @EXPORT_OK @EXPORT_FAIL
- %EXPORT_TAGS $AUTOLOAD $DEFAULT_FLAGS);
+our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS,
+ $AUTOLOAD, $DEFAULT_FLAGS);
require Exporter;
use XSLoader ();
==== //depot/perl/ext/GDBM_File/GDBM_File.pm#13 (text) ====
Index: perl/ext/GDBM_File/GDBM_File.pm
--- perl/ext/GDBM_File/GDBM_File.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/GDBM_File/GDBM_File.pm Sun Jan 23 04:23:54 2000
@@ -40,7 +40,7 @@
package GDBM_File;
use strict;
-use vars qw($VERSION @ISA @EXPORT $AUTOLOAD);
+our($VERSION, @ISA, @EXPORT, $AUTOLOAD);
require Carp;
require Tie::Hash;
==== //depot/perl/ext/IO/lib/IO/Dir.pm#3 (text) ====
Index: perl/ext/IO/lib/IO/Dir.pm
--- perl/ext/IO/lib/IO/Dir.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/IO/lib/IO/Dir.pm Sun Jan 23 04:23:54 2000
@@ -13,7 +13,7 @@
use Symbol;
use Exporter;
use IO::File;
-use vars qw(@ISA $VERSION @EXPORT_OK);
+our(@ISA, $VERSION, @EXPORT_OK);
use Tie::Hash;
use File::stat;
==== //depot/perl/ext/IO/lib/IO/File.pm#10 (text) ====
Index: perl/ext/IO/lib/IO/File.pm
--- perl/ext/IO/lib/IO/File.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/IO/lib/IO/File.pm Sun Jan 23 04:23:54 2000
@@ -103,9 +103,9 @@
=cut
-require 5.000;
+require 5.005_64;
use strict;
-use vars qw($VERSION @EXPORT @EXPORT_OK @ISA);
+our($VERSION, @EXPORT, @EXPORT_OK, @ISA);
use Carp;
use Symbol;
use SelectSaver;
==== //depot/perl/ext/IO/lib/IO/Handle.pm#14 (text) ====
Index: perl/ext/IO/lib/IO/Handle.pm
--- perl/ext/IO/lib/IO/Handle.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/IO/lib/IO/Handle.pm Sun Jan 23 04:23:54 2000
@@ -232,9 +232,9 @@
=cut
-require 5.000;
+require 5.005_64;
use strict;
-use vars qw($VERSION @EXPORT_OK @ISA);
+our($VERSION, @EXPORT_OK, @ISA);
use Carp;
use Symbol;
use SelectSaver;
==== //depot/perl/ext/IO/lib/IO/Pipe.pm#10 (text) ====
Index: perl/ext/IO/lib/IO/Pipe.pm
--- perl/ext/IO/lib/IO/Pipe.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/IO/lib/IO/Pipe.pm Sun Jan 23 04:23:54 2000
@@ -6,11 +6,11 @@
package IO::Pipe;
-require 5.000;
+require 5.005_64;
use IO::Handle;
use strict;
-use vars qw($VERSION);
+our($VERSION);
use Carp;
use Symbol;
@@ -135,7 +135,7 @@
package IO::Pipe::End;
-use vars qw(@ISA);
+our(@ISA);
@ISA = qw(IO::Handle);
==== //depot/perl/ext/IO/lib/IO/Poll.pm#3 (text) ====
Index: perl/ext/IO/lib/IO/Poll.pm
--- perl/ext/IO/lib/IO/Poll.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/IO/lib/IO/Poll.pm Sun Jan 23 04:23:54 2000
@@ -9,7 +9,7 @@
use strict;
use IO::Handle;
use Exporter ();
-use vars qw(@ISA @EXPORT_OK @EXPORT $VERSION);
+our(@ISA, @EXPORT_OK, @EXPORT, $VERSION);
@ISA = qw(Exporter);
$VERSION = "0.01";
==== //depot/perl/ext/IO/lib/IO/Seekable.pm#8 (text) ====
Index: perl/ext/IO/lib/IO/Seekable.pm
--- perl/ext/IO/lib/IO/Seekable.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/IO/lib/IO/Seekable.pm Sun Jan 23 04:23:54 2000
@@ -44,10 +44,10 @@
=cut
-require 5.000;
+require 5.005_64;
use Carp;
use strict;
-use vars qw($VERSION @EXPORT @ISA);
+our($VERSION, @EXPORT, @ISA);
use IO::Handle qw(SEEK_SET SEEK_CUR SEEK_END);
require Exporter;
==== //depot/perl/ext/IO/lib/IO/Socket.pm#17 (text) ====
Index: perl/ext/IO/lib/IO/Socket.pm
--- perl/ext/IO/lib/IO/Socket.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/IO/lib/IO/Socket.pm Sun Jan 23 04:23:54 2000
@@ -6,13 +6,13 @@
package IO::Socket;
-require 5.000;
+require 5.005_64;
use IO::Handle;
use Socket 1.3;
use Carp;
use strict;
-use vars qw(@ISA $VERSION);
+our(@ISA, $VERSION);
use Exporter;
# legacy
==== //depot/perl/ext/IO/lib/IO/Socket/INET.pm#4 (text) ====
Index: perl/ext/IO/lib/IO/Socket/INET.pm
--- perl/ext/IO/lib/IO/Socket/INET.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/IO/lib/IO/Socket/INET.pm Sun Jan 23 04:23:54 2000
@@ -7,7 +7,7 @@
package IO::Socket::INET;
use strict;
-use vars qw(@ISA $VERSION);
+our(@ISA, $VERSION);
use IO::Socket;
use Socket;
use Carp;
==== //depot/perl/ext/IO/lib/IO/Socket/UNIX.pm#3 (text) ====
Index: perl/ext/IO/lib/IO/Socket/UNIX.pm
--- perl/ext/IO/lib/IO/Socket/UNIX.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/IO/lib/IO/Socket/UNIX.pm Sun Jan 23 04:23:54 2000
@@ -7,7 +7,7 @@
package IO::Socket::UNIX;
use strict;
-use vars qw(@ISA $VERSION);
+our(@ISA, $VERSION);
use IO::Socket;
use Socket;
use Carp;
==== //depot/perl/ext/NDBM_File/NDBM_File.pm#10 (text) ====
Index: perl/ext/NDBM_File/NDBM_File.pm
--- perl/ext/NDBM_File/NDBM_File.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/NDBM_File/NDBM_File.pm Sun Jan 23 04:23:54 2000
@@ -5,14 +5,12 @@
use strict;
}
}
-use vars qw($VERSION @ISA);
require Tie::Hash;
use DynaLoader ();
-@ISA = qw(Tie::Hash);
-
-$VERSION = "1.03";
+our @ISA = qw(Tie::Hash);
+our $VERSION = "1.03";
XSLoader::load 'NDBM_File', $VERSION;
==== //depot/perl/ext/ODBM_File/ODBM_File.pm#10 (text) ====
Index: perl/ext/ODBM_File/ODBM_File.pm
--- perl/ext/ODBM_File/ODBM_File.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/ODBM_File/ODBM_File.pm Sun Jan 23 04:23:54 2000
@@ -1,14 +1,12 @@
package ODBM_File;
use strict;
-use vars qw($VERSION @ISA);
require Tie::Hash;
use DynaLoader ();
-@ISA = qw(Tie::Hash);
-
-$VERSION = "1.02";
+our @ISA = qw(Tie::Hash);
+our $VERSION = "1.02";
XSLoader::load 'ODBM_File', $VERSION;
==== //depot/perl/ext/Opcode/Opcode.pm#19 (text) ====
Index: perl/ext/Opcode/Opcode.pm
--- perl/ext/Opcode/Opcode.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/Opcode/Opcode.pm Sun Jan 23 04:23:54 2000
@@ -1,8 +1,8 @@
package Opcode;
-require 5.002;
+require 5.005_64;
-use vars qw($VERSION $XS_VERSION @ISA @EXPORT_OK);
+our($VERSION, $XS_VERSION, @ISA, @EXPORT_OK);
$VERSION = "1.04";
$XS_VERSION = "1.03";
==== //depot/perl/ext/Opcode/Safe.pm#8 (text) ====
Index: perl/ext/Opcode/Safe.pm
--- perl/ext/Opcode/Safe.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/Opcode/Safe.pm Sun Jan 23 04:23:54 2000
@@ -2,9 +2,8 @@
use 5.003_11;
use strict;
-use vars qw($VERSION);
-$VERSION = "2.06";
+our $VERSION = "2.06";
use Carp;
==== //depot/perl/ext/POSIX/POSIX.pm#16 (text) ====
Index: perl/ext/POSIX/POSIX.pm
--- perl/ext/POSIX/POSIX.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/POSIX/POSIX.pm Sun Jan 23 04:23:54 2000
@@ -1,7 +1,6 @@
package POSIX;
-# use vars qw($VERSION @ISA %EXPORT_TAGS @EXPORT_OK $AUTOLOAD);
-(@ISA, %EXPORT_TAGS,@EXPORT_OK,$AUTOLOAD) = ();
+our(@ISA, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD) = ();
use Carp;
use AutoLoader;
@@ -12,7 +11,7 @@
use XSLoader ();
@ISA = qw(Exporter);
-$VERSION = "1.03" ;
+our $VERSION = "1.03" ;
%EXPORT_TAGS = (
==== //depot/perl/ext/SDBM_File/SDBM_File.pm#10 (text) ====
Index: perl/ext/SDBM_File/SDBM_File.pm
--- perl/ext/SDBM_File/SDBM_File.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/SDBM_File/SDBM_File.pm Sun Jan 23 04:23:54 2000
@@ -1,14 +1,12 @@
package SDBM_File;
use strict;
-use vars qw($VERSION @ISA);
require Tie::Hash;
use XSLoader ();
-@ISA = qw(Tie::Hash);
-
-$VERSION = "1.02" ;
+our @ISA = qw(Tie::Hash);
+our $VERSION = "1.02" ;
XSLoader::load 'SDBM_File', $VERSION;
==== //depot/perl/ext/Socket/Socket.pm#13 (text) ====
Index: perl/ext/Socket/Socket.pm
--- perl/ext/Socket/Socket.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/Socket/Socket.pm Sun Jan 23 04:23:54 2000
@@ -1,6 +1,6 @@
package Socket;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
$VERSION = "1.71";
=head1 NAME
==== //depot/perl/ext/Thread/Thread.pm#10 (text) ====
Index: perl/ext/Thread/Thread.pm
--- perl/ext/Thread/Thread.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/ext/Thread/Thread.pm Sun Jan 23 04:23:54 2000
@@ -1,7 +1,7 @@
package Thread;
require Exporter;
use XSLoader ();
-use vars qw($VERSION @ISA @EXPORT);
+our($VERSION, @ISA, @EXPORT);
$VERSION = "1.0";
==== //depot/perl/lib/AnyDBM_File.pm#8 (text) ====
Index: perl/lib/AnyDBM_File.pm
--- perl/lib/AnyDBM_File.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/AnyDBM_File.pm Sun Jan 23 04:23:54 2000
@@ -1,7 +1,7 @@
package AnyDBM_File;
-use vars qw(@ISA);
-@ISA = qw(NDBM_File DB_File GDBM_File SDBM_File ODBM_File) unless @ISA;
+use 5.005_64;
+our @ISA = qw(NDBM_File DB_File GDBM_File SDBM_File ODBM_File) unless @ISA;
my $mod;
for $mod (@ISA) {
==== //depot/perl/lib/AutoLoader.pm#17 (text) ====
Index: perl/lib/AutoLoader.pm
--- perl/lib/AutoLoader.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/AutoLoader.pm Sun Jan 23 04:23:54 2000
@@ -1,6 +1,7 @@
package AutoLoader;
-# use vars qw(@EXPORT @EXPORT_OK $VERSION);
+use 5.005_64;
+our(@EXPORT, @EXPORT_OK, $VERSION);
my $is_dosish;
my $is_vms;
==== //depot/perl/lib/AutoSplit.pm#16 (text) ====
Index: perl/lib/AutoSplit.pm
--- perl/lib/AutoSplit.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/AutoSplit.pm Sun Jan 23 04:23:54 2000
@@ -1,15 +1,14 @@
package AutoSplit;
+use 5.005_64;
use Exporter ();
use Config qw(%Config);
use Carp qw(carp);
use File::Basename ();
use File::Path qw(mkpath);
use strict;
-use vars qw(
- $VERSION @ISA @EXPORT @EXPORT_OK
- $Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime
- );
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Verbose, $Keep, $Maxlen,
+ $CheckForAutoloader, $CheckModTime);
$VERSION = "1.0304";
@ISA = qw(Exporter);
==== //depot/perl/lib/Class/Struct.pm#10 (text) ====
Index: perl/lib/Class/Struct.pm
--- perl/lib/Class/Struct.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Class/Struct.pm Sun Jan 23 04:23:54 2000
@@ -2,10 +2,10 @@
## See POD after __END__
-require 5.002;
+use 5.005_64;
use strict;
-use vars qw(@ISA @EXPORT $VERSION);
+our(@ISA, @EXPORT, $VERSION);
use Carp;
==== //depot/perl/lib/Dumpvalue.pm#5 (text) ====
Index: perl/lib/Dumpvalue.pm
--- perl/lib/Dumpvalue.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Dumpvalue.pm Sun Jan 23 04:23:54 2000
@@ -1,7 +1,7 @@
-require 5.005; # For (defined ref) and $#$v
+use 5.005_64; # for (defined ref) and $#$v and our
package Dumpvalue;
use strict;
-use vars qw(%address *stab %subs);
+our(%address, $stab, @stab, %stab, %subs);
# translate control chars to ^X - Randal Schwartz
# Modifications to print types by Peter Gordon v1.0
==== //depot/perl/lib/ExtUtils/Command.pm#8 (text) ====
Index: perl/lib/ExtUtils/Command.pm
--- perl/lib/ExtUtils/Command.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/ExtUtils/Command.pm Sun Jan 23 04:23:54 2000
@@ -1,4 +1,6 @@
package ExtUtils::Command;
+
+use 5.005_64;
use strict;
# use AutoLoader;
use Carp;
@@ -7,7 +9,7 @@
use File::Basename;
use File::Path qw(rmtree);
require Exporter;
-use vars qw(@ISA @EXPORT $VERSION);
+our(@ISA, @EXPORT, $VERSION);
@ISA = qw(Exporter);
@EXPORT = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f);
$VERSION = '1.01';
==== //depot/perl/lib/ExtUtils/Install.pm#20 (text) ====
Index: perl/lib/ExtUtils/Install.pm
--- perl/lib/ExtUtils/Install.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/ExtUtils/Install.pm Sun Jan 23 04:23:54 2000
@@ -1,12 +1,13 @@
package ExtUtils::Install;
+use 5.005_64;
+our(@ISA, @EXPORT, $VERSION);
$VERSION = substr q$Revision: 1.28 $, 10;
# $Date: 1998/01/25 07:08:24 $
use Exporter;
use Carp ();
use Config qw(%Config);
-use vars qw(@ISA @EXPORT $VERSION);
@ISA = ('Exporter');
@EXPORT = ('install','uninstall','pm_to_blib', 'install_default');
$Is_VMS = $^O eq 'VMS';
@@ -15,7 +16,7 @@
my @PERL_ENV_LIB = split $splitchar, defined $ENV{'PERL5LIB'} ? $ENV{'PERL5LIB'} : $ENV{'PERLLIB'} || '';
my $Inc_uninstall_warn_handler;
-#use vars qw( @EXPORT @ISA $Is_VMS );
+#our(@EXPORT, @ISA, $Is_VMS);
#use strict;
sub forceunlink {
==== //depot/perl/lib/ExtUtils/Installed.pm#5 (text) ====
Index: perl/lib/ExtUtils/Installed.pm
--- perl/lib/ExtUtils/Installed.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/ExtUtils/Installed.pm Sun Jan 23 04:23:54 2000
@@ -1,4 +1,6 @@
package ExtUtils::Installed;
+
+use 5.005_64;
use strict;
use Carp qw();
use ExtUtils::Packlist;
@@ -6,8 +8,7 @@
use Config;
use File::Find;
use File::Basename;
-use vars qw($VERSION);
-$VERSION = '0.02';
+our $VERSION = '0.02';
sub _is_type($$$)
{
==== //depot/perl/lib/ExtUtils/Liblist.pm#20 (text) ====
Index: perl/lib/ExtUtils/Liblist.pm
--- perl/lib/ExtUtils/Liblist.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/ExtUtils/Liblist.pm Sun Jan 23 04:23:54 2000
@@ -1,8 +1,9 @@
package ExtUtils::Liblist;
-use vars qw($VERSION);
+
+use 5.005_64;
# Broken out of MakeMaker from version 4.11
-$VERSION = substr q$Revision: 1.25 $, 10;
+our $VERSION = substr q$Revision: 1.25 $, 10;
use Config;
use Cwd 'cwd';
==== //depot/perl/lib/ExtUtils/MM_VMS.pm#27 (text) ====
Index: perl/lib/ExtUtils/MM_VMS.pm
--- perl/lib/ExtUtils/MM_VMS.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/ExtUtils/MM_VMS.pm Sun Jan 23 04:23:54 2000
@@ -13,7 +13,7 @@
use VMS::Filespec;
use File::Basename;
use File::Spec;
-use vars qw($Revision @ISA);
+our($Revision, @ISA);
$Revision = '5.56 (27-Apr-1999)';
@ISA = qw( File::Spec );
==== //depot/perl/lib/ExtUtils/Mksymlists.pm#19 (text) ====
Index: perl/lib/ExtUtils/Mksymlists.pm
--- perl/lib/ExtUtils/Mksymlists.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/ExtUtils/Mksymlists.pm Sun Jan 23 04:23:54 2000
@@ -1,10 +1,12 @@
package ExtUtils::Mksymlists;
+
+use 5.005_64;
use strict qw[ subs refs ];
# no strict 'vars'; # until filehandles are exempted
use Carp;
use Exporter;
-use vars qw( @ISA @EXPORT $VERSION );
+our(@ISA, @EXPORT, $VERSION);
@ISA = 'Exporter';
@EXPORT = '&Mksymlists';
$VERSION = substr q$Revision: 1.17 $, 10;
==== //depot/perl/lib/ExtUtils/Packlist.pm#4 (text) ====
Index: perl/lib/ExtUtils/Packlist.pm
--- perl/lib/ExtUtils/Packlist.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/ExtUtils/Packlist.pm Sun Jan 23 04:23:54 2000
@@ -1,8 +1,9 @@
package ExtUtils::Packlist;
+
+use 5.005_64;
use strict;
use Carp qw();
-use vars qw($VERSION);
-$VERSION = '0.03';
+our $VERSION = '0.03';
# Used for generating filehandle globs. IO::File might not be available!
my $fhname = "FH1";
==== //depot/perl/lib/Fatal.pm#3 (text) ====
Index: perl/lib/Fatal.pm
--- perl/lib/Fatal.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Fatal.pm Sun Jan 23 04:23:54 2000
@@ -1,8 +1,9 @@
package Fatal;
+use 5.005_64;
use Carp;
use strict;
-use vars qw( $AUTOLOAD $Debug $VERSION);
+our($AUTOLOAD, $Debug, $VERSION);
$VERSION = 1.02;
==== //depot/perl/lib/File/Basename.pm#13 (text) ====
Index: perl/lib/File/Basename.pm
--- perl/lib/File/Basename.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/File/Basename.pm Sun Jan 23 04:23:54 2000
@@ -135,11 +135,11 @@
-
+use 5.005_64;
+our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
-use vars qw($VERSION $Fileparse_fstype $Fileparse_igncase);
$VERSION = "2.6";
==== //depot/perl/lib/File/Compare.pm#9 (text) ====
Index: perl/lib/File/Compare.pm
--- perl/lib/File/Compare.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/File/Compare.pm Sun Jan 23 04:23:54 2000
@@ -1,7 +1,8 @@
package File::Compare;
+use 5.005_64;
use strict;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $Too_Big *FROM *TO);
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Too_Big);
require Exporter;
use Carp;
@@ -115,6 +116,7 @@
return -1;
}
+sub cmp;
*cmp = \&compare;
sub compare_text {
==== //depot/perl/lib/File/Copy.pm#13 (text) ====
Index: perl/lib/File/Copy.pm
--- perl/lib/File/Copy.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/File/Copy.pm Sun Jan 23 04:23:54 2000
@@ -7,10 +7,14 @@
package File::Copy;
+use 5.005_64;
use strict;
use Carp;
-use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION $Too_Big
- © &syscopy &cp &mv $Syscopy_is_copy);
+our(@ISA, @EXPORT, @EXPORT_OK, $VERSION, $Too_Big, $Syscopy_is_copy);
+sub copy;
+sub syscopy;
+sub cp;
+sub mv;
# Note that this module implements only *part* of the API defined by
# the File/Copy.pm module of the File-Tools-2.0 package. However, that
==== //depot/perl/lib/File/Find.pm#19 (text) ====
Index: perl/lib/File/Find.pm
--- perl/lib/File/Find.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/File/Find.pm Sun Jan 23 04:23:54 2000
@@ -1,5 +1,5 @@
package File::Find;
-require 5.005;
+use 5.005_64;
require Exporter;
require Cwd;
@@ -270,7 +270,7 @@
return $AbsName;
}
-use vars qw/ $dir $name $fullname $prune /;
+our($dir, $name, $fullname, $prune);
sub _find_dir_symlnk($$$);
sub _find_dir($$$);
==== //depot/perl/lib/File/Path.pm#17 (text) ====
Index: perl/lib/File/Path.pm
--- perl/lib/File/Path.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/File/Path.pm Sun Jan 23 04:23:54 2000
@@ -91,13 +91,14 @@
=cut
+use 5.005_64;
use Carp;
use File::Basename ();
use DirHandle ();
use Exporter ();
use strict;
-use vars qw( $VERSION @ISA @EXPORT );
+our($VERSION, @ISA, @EXPORT);
$VERSION = "1.0402";
@ISA = qw( Exporter );
@EXPORT = qw( mkpath rmtree );
==== //depot/perl/lib/File/stat.pm#6 (text) ====
Index: perl/lib/File/stat.pm
--- perl/lib/File/stat.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/File/stat.pm Sun Jan 23 04:23:54 2000
@@ -1,9 +1,11 @@
package File::stat;
use strict;
+use 5.005_64;
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+
BEGIN {
use Exporter ();
- use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS);
@EXPORT = qw(stat lstat);
@EXPORT_OK = qw( $st_dev $st_ino $st_mode
$st_nlink $st_uid $st_gid
@@ -13,7 +15,6 @@
);
%EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
}
-use vars @EXPORT_OK;
# Class::Struct forbids use of @ISA
sub import { goto &Exporter::import }
==== //depot/perl/lib/FileHandle.pm#9 (text) ====
Index: perl/lib/FileHandle.pm
--- perl/lib/FileHandle.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/FileHandle.pm Sun Jan 23 04:23:54 2000
@@ -1,8 +1,8 @@
package FileHandle;
-use 5.003_11;
+use 5.005_64;
use strict;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK);
$VERSION = "2.00";
==== //depot/perl/lib/Math/Complex.pm#13 (text) ====
Index: perl/lib/Math/Complex.pm
--- perl/lib/Math/Complex.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Math/Complex.pm Sun Jan 23 04:23:54 2000
@@ -8,9 +8,10 @@
require Exporter;
package Math::Complex;
+use 5.005_64;
use strict;
-use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS);
+our($VERSION, @ISA, @EXPORT, %EXPORT_TAGS);
my ( $i, $ip2, %logn );
==== //depot/perl/lib/Math/Trig.pm#12 (text) ====
Index: perl/lib/Math/Trig.pm
--- perl/lib/Math/Trig.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Math/Trig.pm Sun Jan 23 04:23:54 2000
@@ -7,13 +7,12 @@
require Exporter;
package Math::Trig;
+use 5.005_64;
use strict;
use Math::Complex qw(:trig);
-use vars qw($VERSION $PACKAGE
- @ISA
- @EXPORT @EXPORT_OK %EXPORT_TAGS);
+our($VERSION, $PACKAGE, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
@ISA = qw(Exporter);
==== //depot/perl/lib/Net/Ping.pm#8 (text) ====
Index: perl/lib/Net/Ping.pm
--- perl/lib/Net/Ping.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Net/Ping.pm Sun Jan 23 04:23:54 2000
@@ -10,12 +10,11 @@
# program is free software; you may redistribute it and/or modify it
# under the same terms as Perl itself.
-require 5.002;
+use 5.005_64;
require Exporter;
use strict;
-use vars qw(@ISA @EXPORT $VERSION
- $def_timeout $def_proto $max_datasize);
+our(@ISA, @EXPORT, $VERSION, $def_timeout, $def_proto, $max_datasize);
use FileHandle;
use Socket qw( SOCK_DGRAM SOCK_STREAM SOCK_RAW PF_INET
inet_aton sockaddr_in );
==== //depot/perl/lib/Net/hostent.pm#8 (text) ====
Index: perl/lib/Net/hostent.pm
--- perl/lib/Net/hostent.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Net/hostent.pm Sun Jan 23 04:23:54 2000
@@ -1,9 +1,10 @@
package Net::hostent;
use strict;
+use 5.005_64;
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN {
use Exporter ();
- use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS);
@EXPORT = qw(gethostbyname gethostbyaddr gethost);
@EXPORT_OK = qw(
$h_name @h_aliases
==== //depot/perl/lib/Net/netent.pm#7 (text) ====
Index: perl/lib/Net/netent.pm
--- perl/lib/Net/netent.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Net/netent.pm Sun Jan 23 04:23:54 2000
@@ -1,9 +1,10 @@
package Net::netent;
use strict;
+use 5.005_64;
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN {
use Exporter ();
- use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS);
@EXPORT = qw(getnetbyname getnetbyaddr getnet);
@EXPORT_OK = qw(
$n_name @n_aliases
==== //depot/perl/lib/Net/protoent.pm#6 (text) ====
Index: perl/lib/Net/protoent.pm
--- perl/lib/Net/protoent.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Net/protoent.pm Sun Jan 23 04:23:54 2000
@@ -1,9 +1,10 @@
package Net::protoent;
use strict;
+use 5.005_64;
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN {
use Exporter ();
- use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS);
@EXPORT = qw(getprotobyname getprotobynumber getprotoent);
@EXPORT_OK = qw( $p_name @p_aliases $p_proto );
%EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
==== //depot/perl/lib/Net/servent.pm#6 (text) ====
Index: perl/lib/Net/servent.pm
--- perl/lib/Net/servent.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Net/servent.pm Sun Jan 23 04:23:54 2000
@@ -1,9 +1,10 @@
package Net::servent;
use strict;
+use 5.005_64;
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN {
use Exporter ();
- use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS);
@EXPORT = qw(getservbyname getservbyport getservent getserv);
@EXPORT_OK = qw( $s_name @s_aliases $s_port $s_proto );
%EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
==== //depot/perl/lib/Shell.pm#8 (text) ====
Index: perl/lib/Shell.pm
--- perl/lib/Shell.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Shell.pm Sun Jan 23 04:23:54 2000
@@ -1,5 +1,6 @@
package Shell;
-use vars qw($capture_stderr $VERSION);
+use 5.005_64;
+our($capture_stderr $VERSION);
$VERSION = '0.2';
==== //depot/perl/lib/Test.pm#9 (text) ====
Index: perl/lib/Test.pm
--- perl/lib/Test.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Test.pm Sun Jan 23 04:23:54 2000
@@ -1,9 +1,10 @@
use strict;
package Test;
+use 5.005_64;
use Test::Harness 1.1601 ();
use Carp;
-use vars (qw($VERSION @ISA @EXPORT @EXPORT_OK $ntest $TestLevel), #public-ish
- qw($TESTOUT $ONFAIL %todo %history $planned @FAILDETAIL)); #private-ish
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $ntest, $TestLevel); #public-ish
+our($TESTOUT, $ONFAIL, %todo, %history, $planned, @FAILDETAIL); #private-ish
$VERSION = '1.13';
require Exporter;
@ISA=('Exporter');
==== //depot/perl/lib/Test/Harness.pm#24 (text) ====
Index: perl/lib/Test/Harness.pm
--- perl/lib/Test/Harness.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Test/Harness.pm Sun Jan 23 04:23:54 2000
@@ -1,14 +1,14 @@
package Test::Harness;
-BEGIN {require 5.002;}
+use 5.005_64;
use Exporter;
use Benchmark;
use Config;
use FileHandle;
use strict;
-use vars qw($VERSION $verbose $switches $have_devel_corestack $curtest
- @ISA @EXPORT @EXPORT_OK);
+our($VERSION, $verbose, $switches, $have_devel_corestack, $curtest,
+ @ISA, @EXPORT, @EXPORT_OK);
$have_devel_corestack = 0;
$VERSION = "1.1604";
==== //depot/perl/lib/Tie/Array.pm#6 (text) ====
Index: perl/lib/Tie/Array.pm
--- perl/lib/Tie/Array.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Tie/Array.pm Sun Jan 23 04:23:54 2000
@@ -1,8 +1,9 @@
package Tie::Array;
-use vars qw($VERSION);
+
+use 5.005_64;
use strict;
use Carp;
-$VERSION = '1.01';
+our $VERSION = '1.01';
# Pod documentation after __END__ below.
==== //depot/perl/lib/Tie/Handle.pm#5 (text) ====
Index: perl/lib/Tie/Handle.pm
--- perl/lib/Tie/Handle.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Tie/Handle.pm Sun Jan 23 04:23:54 2000
@@ -1,6 +1,7 @@
package Tie::Handle;
-$VERSION = '1.0';
+use 5.005_64;
+our $VERSION = '1.0';
=head1 NAME
@@ -185,8 +186,7 @@
}
package Tie::StdHandle;
-use vars qw(@ISA);
-@ISA = 'Tie::Handle';
+our @ISA = 'Tie::Handle';
use Carp;
sub TIEHANDLE
==== //depot/perl/lib/Time/gmtime.pm#7 (text) ====
Index: perl/lib/Time/gmtime.pm
--- perl/lib/Time/gmtime.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Time/gmtime.pm Sun Jan 23 04:23:54 2000
@@ -2,9 +2,10 @@
use strict;
use Time::tm;
+use 5.005_64;
+our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
BEGIN {
use Exporter ();
- use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
@ISA = qw(Exporter Time::tm);
@EXPORT = qw(gmtime gmctime);
@EXPORT_OK = qw(
==== //depot/perl/lib/Time/localtime.pm#7 (text) ====
Index: perl/lib/Time/localtime.pm
--- perl/lib/Time/localtime.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/Time/localtime.pm Sun Jan 23 04:23:54 2000
@@ -2,9 +2,10 @@
use strict;
use Time::tm;
-BEGIN {
+use 5.005_64;
+our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
+BEGIN {
use Exporter ();
- use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
@ISA = qw(Exporter Time::tm);
@EXPORT = qw(localtime ctime);
@EXPORT_OK = qw(
==== //depot/perl/lib/User/grent.pm#7 (text) ====
Index: perl/lib/User/grent.pm
--- perl/lib/User/grent.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/User/grent.pm Sun Jan 23 04:23:54 2000
@@ -1,9 +1,10 @@
package User::grent;
use strict;
+use 5.005_64;
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN {
use Exporter ();
- use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS);
@EXPORT = qw(getgrent getgrgid getgrnam getgr);
@EXPORT_OK = qw($gr_name $gr_gid $gr_passwd $gr_mem @gr_members);
%EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
==== //depot/perl/lib/User/pwent.pm#7 (text) ====
Index: perl/lib/User/pwent.pm
--- perl/lib/User/pwent.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/User/pwent.pm Sun Jan 23 04:23:54 2000
@@ -1,9 +1,10 @@
package User::pwent;
use strict;
+use 5.005_64;
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN {
use Exporter ();
- use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS);
@EXPORT = qw(getpwent getpwuid getpwnam getpw);
@EXPORT_OK = qw(
$pw_name $pw_passwd $pw_uid
==== //depot/perl/lib/base.pm#9 (text) ====
Index: perl/lib/base.pm
--- perl/lib/base.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/base.pm Sun Jan 23 04:23:54 2000
@@ -43,8 +43,9 @@
=cut
package base;
-use vars qw($VERSION);
-$VERSION = "1.01";
+
+use 5.005_64;
+our $VERSION = "1.01";
sub import {
my $class = shift;
==== //depot/perl/lib/caller.pm#3 (text) ====
Index: perl/lib/caller.pm
--- perl/lib/caller.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/caller.pm Sun Jan 23 04:23:54 2000
@@ -1,6 +1,5 @@
package caller;
-use vars qw($VERSION);
-$VERSION = "1.0";
+our $VERSION = "1.0";
=head1 NAME
==== //depot/perl/lib/constant.pm#8 (text) ====
Index: perl/lib/constant.pm
--- perl/lib/constant.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/constant.pm Sun Jan 23 04:23:54 2000
@@ -1,13 +1,13 @@
package constant;
use strict;
-use vars qw( $VERSION %declared );
+use 5.005_64;
+
+our($VERSION, %declared);
$VERSION = '1.01';
#=======================================================================
-require 5.005_62;
-
# Some names are evil choices.
my %keywords = map +($_, 1), qw{ BEGIN INIT STOP END DESTROY AUTOLOAD };
==== //depot/perl/lib/diagnostics.pm#17 (xtext) ====
Index: perl/lib/diagnostics.pm
--- perl/lib/diagnostics.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/diagnostics.pm Sun Jan 23 04:23:54 2000
@@ -167,7 +167,7 @@
=cut
-require 5.005_64;
+use 5.005_64;
use Carp;
$VERSION = v1.0;
==== //depot/perl/lib/fields.pm#12 (text) ====
Index: perl/lib/fields.pm
--- perl/lib/fields.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/fields.pm Sun Jan 23 04:23:54 2000
@@ -69,9 +69,10 @@
=cut
+use 5.005_64;
use strict;
no strict 'refs';
-use vars qw(%attr $VERSION);
+our(%attr, $VERSION);
$VERSION = "1.01";
==== //depot/perl/lib/lib.pm#10 (text) ====
Index: perl/lib/lib.pm
--- perl/lib/lib.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/lib.pm Sun Jan 23 04:23:54 2000
@@ -1,13 +1,13 @@
package lib;
-use vars qw(@ORIG_INC);
+use 5.005_64;
use Config;
my $archname = $Config{'archname'};
my $ver = $Config{'version'};
-@ORIG_INC = @INC; # take a handy copy of 'original' value
-
+our @ORIG_INC = @INC; # take a handy copy of 'original' value
+our $VERSION = '0.5564';
sub import {
shift;
==== //depot/perl/lib/strict.pm#11 (text) ====
Index: perl/lib/strict.pm
--- perl/lib/strict.pm.~1~ Sun Jan 23 04:23:54 2000
+++ perl/lib/strict.pm Sun Jan 23 04:23:54 2000
@@ -38,8 +38,8 @@
=item C<strict vars>
This generates a compile-time error if you access a variable that wasn't
-declared via C<use vars>,
-localized via C<my()> or wasn't fully qualified. Because this is to avoid
+declared via "our" or C<use vars>,
+localized via C<my()>, or wasn't fully qualified. Because this is to avoid
variable suicide problems and subtle dynamic scoping issues, a merely
local() variable isn't good enough. See L<perlfunc/my> and
L<perlfunc/local>.
@@ -50,7 +50,7 @@
local $foo = 9; # blows up
package Cinna;
- use vars qw/ $bar /; # Declares $bar in current package
+ our $bar; # Declares $bar in current package
$bar = 'HgS'; # ok, global declared via pragma
The local() generated a compile-time error because you just touched a global
End of Patch.
Change 4861 by gsar@auger on 2000/01/23 12:32:25
faulty edit
Affected files ...
... //depot/perl/lib/File/stat.pm#7 edit
Differences ...
==== //depot/perl/lib/File/stat.pm#7 (text) ====
Index: perl/lib/File/stat.pm
--- perl/lib/File/stat.pm.~1~ Sun Jan 23 21:41:01 2000
+++ perl/lib/File/stat.pm Sun Jan 23 21:41:01 2000
@@ -15,6 +15,7 @@
);
%EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
}
+use vars @EXPORT_OK;
# Class::Struct forbids use of @ISA
sub import { goto &Exporter::import }
End of Patch.
- Follow-Ups from:
-
Michael G Schwern <schwern@pobox.com>
Larry Wall <larry@wall.org>
- References to:
-
Michael G Schwern <schwern@pobox.com>
[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]