[svn:Module-Build] r12720 - in Module-Build/trunk: . lib/Module/Build

Author: dagolden
Date: Tue Apr 28 04:13:02 2009
New Revision: 12720

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/lib/Module/Build/PPMMaker.pm

Log:
Fixed #43861 (broken PPD name versioning for v5.10+)

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes	(original)
+++ Module-Build/trunk/Changes	Tue Apr 28 04:13:02 2009
@@ -3,7 +3,9 @@
 0.32_02 - 
 
  Bug-fixes:
- - Fixed ext.t on VMS [patch from John Malmberg] (RT #45461)
+ - Fixed RT#45461: ext.t on VMS [patch from John Malmberg]
+ - Fixed RT#43861: Module::Build::PPMMaker has broken PPD name
+   versioning for v5.10+
 
 0.32_01 - Tue Apr 14 17:14:22 PDT 2009
 

Modified: Module-Build/trunk/lib/Module/Build/PPMMaker.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/PPMMaker.pm	(original)
+++ Module-Build/trunk/lib/Module/Build/PPMMaker.pm	Tue Apr 28 04:13:02 2009
@@ -130,8 +130,10 @@
   my ($self, $config) = @_;
   my $varchname = $config->{archname};
   # Append "-5.8" to architecture name for Perl 5.8 and later
-  if (defined($^V) && ord(substr($^V,1)) >= 8) {
-    $varchname .= sprintf("-%d.%d", ord($^V), ord(substr($^V,1)));
+  if ($] >= 5.008) {
+      my $vstring = sprintf "%vd", $^V;
+      $vstring =~ s/\.\d+$//;
+      $varchname .= "-$vstring";
   }
   return $varchname;
 }