--- a/config/fixinterps.pl
+++ b/config/fixinterps.pl
@@ -50,7 +50,7 @@ exit (1) if $die ;
 
 do "$config" ;
 
-%interps = ( 'perl', $inn'perl,  #'
+%interps = ( 'perl', $inn::perl,
 	    ) ;
 
 $perlver = &perlVersion($interps{'perl'});
@@ -153,11 +153,15 @@ sub perlVersion {
 
     open (PERL,"$perl -v|") || die "Can't check version of perl ($perl)\n";
     while (<PERL>) {
+    	if (/^this\s+is\s+perl,\s+v(\d+\.\d+\.\d+)/i) {
+	    $rval = $1; last;
+	}
 	if (/^this\s+is\s+perl,\s+version\s+(\S+)/i) {
 	    $rval = $1;
 	}
     }
     close (PERL);
+    return $rval;
 
     if ($rval !~ /^\d+\.\d+(_\d+|)$/) {
 	warn "perl version from $perl looks suspicious: $rval\n";
