From 3d2a0adf2ae6b432e11668e511671510450d3243 Mon Sep 17 00:00:00 2001
From: Steffen Mueller <smueller@cpan.org>
Date: Tue, 20 Dec 2011 08:42:45 +0100
Subject: [PATCH] Use tr/_// instead of eval $VERSION

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                     | 4 ++--
 dist/Cwd/lib/File/Spec.pm           | 4 ++--
 dist/Cwd/lib/File/Spec/Cygwin.pm    | 4 ++--
 dist/Cwd/lib/File/Spec/Epoc.pm      | 4 ++--
 dist/Cwd/lib/File/Spec/Functions.pm | 4 ++--
 dist/Cwd/lib/File/Spec/Mac.pm       | 4 ++--
 dist/Cwd/lib/File/Spec/OS2.pm       | 4 ++--
 dist/Cwd/lib/File/Spec/Unix.pm      | 4 ++--
 dist/Cwd/lib/File/Spec/VMS.pm       | 4 ++--
 dist/Cwd/lib/File/Spec/Win32.pm     | 4 ++--
 10 files changed, 20 insertions(+), 20 deletions(-)

diff --git a/dist/Cwd/Cwd.pm b/dist/Cwd/Cwd.pm
index ac6ee3d..7d04260 100644
--- a/dist/Cwd/Cwd.pm
+++ b/dist/Cwd/Cwd.pm
@@ -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);
diff --git a/dist/Cwd/lib/File/Spec.pm b/dist/Cwd/lib/File/Spec.pm
index 2d60b89..9ddfa9f 100644
--- a/dist/Cwd/lib/File/Spec.pm
+++ b/dist/Cwd/lib/File/Spec.pm
@@ -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',
diff --git a/dist/Cwd/lib/File/Spec/Cygwin.pm b/dist/Cwd/lib/File/Spec/Cygwin.pm
index 0709c6f..3410d36 100644
--- a/dist/Cwd/lib/File/Spec/Cygwin.pm
+++ b/dist/Cwd/lib/File/Spec/Cygwin.pm
@@ -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);
 
diff --git a/dist/Cwd/lib/File/Spec/Epoc.pm b/dist/Cwd/lib/File/Spec/Epoc.pm
index a3bb62b..8ffb4e3 100644
--- a/dist/Cwd/lib/File/Spec/Epoc.pm
+++ b/dist/Cwd/lib/File/Spec/Epoc.pm
@@ -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);
diff --git a/dist/Cwd/lib/File/Spec/Functions.pm b/dist/Cwd/lib/File/Spec/Functions.pm
index 2ee8f5d..581d4f2 100644
--- a/dist/Cwd/lib/File/Spec/Functions.pm
+++ b/dist/Cwd/lib/File/Spec/Functions.pm
@@ -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;
 
diff --git a/dist/Cwd/lib/File/Spec/Mac.pm b/dist/Cwd/lib/File/Spec/Mac.pm
index 1fa533c..129fd75 100644
--- a/dist/Cwd/lib/File/Spec/Mac.pm
+++ b/dist/Cwd/lib/File/Spec/Mac.pm
@@ -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);
 
diff --git a/dist/Cwd/lib/File/Spec/OS2.pm b/dist/Cwd/lib/File/Spec/OS2.pm
index a380dd7..b10a6b3 100644
--- a/dist/Cwd/lib/File/Spec/OS2.pm
+++ b/dist/Cwd/lib/File/Spec/OS2.pm
@@ -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);
 
diff --git a/dist/Cwd/lib/File/Spec/Unix.pm b/dist/Cwd/lib/File/Spec/Unix.pm
index b348147..066a6c9 100644
--- a/dist/Cwd/lib/File/Spec/Unix.pm
+++ b/dist/Cwd/lib/File/Spec/Unix.pm
@@ -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
 
diff --git a/dist/Cwd/lib/File/Spec/VMS.pm b/dist/Cwd/lib/File/Spec/VMS.pm
index 9164dbc..a7d261b 100644
--- a/dist/Cwd/lib/File/Spec/VMS.pm
+++ b/dist/Cwd/lib/File/Spec/VMS.pm
@@ -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);
 
diff --git a/dist/Cwd/lib/File/Spec/Win32.pm b/dist/Cwd/lib/File/Spec/Win32.pm
index fa5c3b1..8cfd1f7 100644
--- a/dist/Cwd/lib/File/Spec/Win32.pm
+++ b/dist/Cwd/lib/File/Spec/Win32.pm
@@ -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);
 
-- 
2.7.4