Index: config/auto/python.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/python.pl,v
retrieving revision 1.1
diff -u -d -u -b -r1.1 python.pl
--- config/auto/python.pl	4 Apr 2005 22:19:19 -0000	1.1
+++ config/auto/python.pl	5 Apr 2005 19:05:54 -0000
@@ -29,7 +29,8 @@
 sub runstep {
     my $a = `python -V 2>&1` || '';
     my ($python, $major, $minor, $revision) = 
-        $a =~ m/(Python)\s+(\d+).(\d+).(\d+)/;
+        $a =~ m/(Python)\s+(\d+).(\d+)(?:.(\d+))?/;
+    $revision = 0 unless defined $revision;
     my $has_python = $python ? 1 : 0;
 
     Configure::Data->set(has_python => $has_python);