cvsuser 05/04/05 12:56:39
Modified: config/auto python.pl Log: Applied patch http://rt.perl.org/rt3/index.html?q=34684, a less strict match of Python's version string. Thanks to Ron Blaschke. Revision Changes Path 1.2 +3 -2 parrot/config/auto/python.pl Index: python.pl =================================================================== RCS file: /cvs/public/parrot/config/auto/python.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- python.pl 4 Apr 2005 22:19:19 -0000 1.1 +++ python.pl 5 Apr 2005 19:56:38 -0000 1.2 @@ -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);
