From: Jarkko Hietaniemi Date: Fri, 30 Jun 2000 02:21:02 +0000 (+0000) Subject: Check VERSIONs. X-Git-Tag: accepted/trunk/20130322.191538~34778^2~54 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=90e08c66fa60e0134a2fa0faa1d1b97485338d2d;p=platform%2Fupstream%2Fperl.git Check VERSIONs. p4raw-id: //depot/cfgperl@6289 --- diff --git a/lib/File/Spec/Mac.pm b/lib/File/Spec/Mac.pm index 857ca1b..e1a462e 100644 --- a/lib/File/Spec/Mac.pm +++ b/lib/File/Spec/Mac.pm @@ -1,7 +1,7 @@ package File::Spec::Mac; use strict; -use vars qw(@ISA); +use vars qw(@ISA $VERSION); require File::Spec::Unix; $VERSION = '1.2'; diff --git a/lib/File/Spec/OS2.pm b/lib/File/Spec/OS2.pm index 33370f0..fc328db 100644 --- a/lib/File/Spec/OS2.pm +++ b/lib/File/Spec/OS2.pm @@ -1,10 +1,12 @@ package File::Spec::OS2; use strict; -use vars qw(@ISA); +use vars qw(@ISA $VERSION); require File::Spec::Unix; @ISA = qw(File::Spec::Unix); +$VERSION = 1.0; + sub devnull { return "/dev/nul"; } diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm index 56b5506..ec20289 100644 --- a/lib/File/Spec/VMS.pm +++ b/lib/File/Spec/VMS.pm @@ -1,10 +1,12 @@ package File::Spec::VMS; use strict; -use vars qw(@ISA); +use vars qw(@ISA $VERSION); require File::Spec::Unix; @ISA = qw(File::Spec::Unix); +$VERSION = 1.0; + use Cwd; use File::Basename; use VMS::Filespec; diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm index 1c2b44f..b863dc4 100644 --- a/lib/File/Spec/Win32.pm +++ b/lib/File/Spec/Win32.pm @@ -2,7 +2,7 @@ package File::Spec::Win32; use strict; use Cwd; -use vars qw(@ISA); +use vars qw(@ISA $VERSION); require File::Spec::Unix; $VERSION = '1.2';