Use tr/_// instead of eval $VERSION
authorSteffen Mueller <smueller@cpan.org>
Tue, 20 Dec 2011 07:42:45 +0000 (08:42 +0100)
committerSteffen Mueller <smueller@cpan.org>
Tue, 20 Dec 2011 09:25:39 +0000 (10:25 +0100)
Also bumps the version of all contained modules to 3.39_01, which is the
version of a new PathTools CPAN release (and the code is in sync with
this commit).

dist/Cwd/Cwd.pm
dist/Cwd/lib/File/Spec.pm
dist/Cwd/lib/File/Spec/Cygwin.pm
dist/Cwd/lib/File/Spec/Epoc.pm
dist/Cwd/lib/File/Spec/Functions.pm
dist/Cwd/lib/File/Spec/Mac.pm
dist/Cwd/lib/File/Spec/OS2.pm
dist/Cwd/lib/File/Spec/Unix.pm
dist/Cwd/lib/File/Spec/VMS.pm
dist/Cwd/lib/File/Spec/Win32.pm

index ac6ee3d..7d04260 100644 (file)
@@ -171,9 +171,9 @@ use strict;
 use Exporter;
 use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 
-$VERSION = '3.38';
+$VERSION = '3.39_01';
 my $xs_version = $VERSION;
-$VERSION = eval $VERSION;
+$VERSION =~ tr/_//;
 
 @ISA = qw/ Exporter /;
 @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
index 2d60b89..9ddfa9f 100644 (file)
@@ -3,8 +3,8 @@ package File::Spec;
 use strict;
 use vars qw(@ISA $VERSION);
 
-$VERSION = '3.34';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 my %module = (MacOS   => 'Mac',
              MSWin32 => 'Win32',
index 0709c6f..3410d36 100644 (file)
@@ -4,8 +4,8 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.33';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
 
index a3bb62b..8ffb4e3 100644 (file)
@@ -3,8 +3,8 @@ package File::Spec::Epoc;
 use strict;
 use vars qw($VERSION @ISA);
 
-$VERSION = '3.33';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 require File::Spec::Unix;
 @ISA = qw(File::Spec::Unix);
index 2ee8f5d..581d4f2 100644 (file)
@@ -5,8 +5,8 @@ use strict;
 
 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
 
-$VERSION = '3.33';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 require Exporter;
 
index 1fa533c..129fd75 100644 (file)
@@ -4,8 +4,8 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.35';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
 
index a380dd7..b10a6b3 100644 (file)
@@ -4,8 +4,8 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.33';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
 
index b348147..066a6c9 100644 (file)
@@ -3,8 +3,8 @@ package File::Spec::Unix;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '3.35';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 =head1 NAME
 
index 9164dbc..a7d261b 100644 (file)
@@ -4,8 +4,8 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.35';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
 
index fa5c3b1..8cfd1f7 100644 (file)
@@ -5,8 +5,8 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.35';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);