39:     unless ($arch) {
40:     $arch =  $Config{archname};
41:     if ($] >= 5.008) {
42:             my $vstring = sprintf "%vd", $^V;
43:             $vstring =~ s/\.\d+$//;
44:             $arch .= "-$vstring";
45:         }
46:     }