--- PPM.pm.orig	2007-12-29 18:00:03.234375000 -0600
+++ PPM.pm	2007-12-29 17:59:58.218750000 -0600
@@ -113,8 +113,10 @@
 
 # add -5.d to archname for Perl >= 5.8 
 my $varchname = $Config{archname};
-if (length($^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";
 }
 
 #