Permalink
Browse files

Autoguessing perl versions was broken, it is fixed now.

Thanks to Tom Molesworth and Paul Evans for helping to spot this.
  • Loading branch information...
1 parent 2057805 commit b737b8521ffd34bf91438add2ff0073d9e01b65a @bingos committed Oct 24, 2011
Showing with 7 additions and 7 deletions.
  1. +1 −1 dist.ini
  2. +1 −1 lib/Devel/PatchPerl.pm
  3. +1 −1 t/02_vers.t
  4. +4 −4 t/modern/patchlevel.h
View
@@ -1,5 +1,5 @@
name = Devel-PatchPerl
-version = 0.58
+version = 0.60
author = Chris Williams <chris@bingosnet.co.uk>
license = Perl_5
copyright_holder = Chris Williams and Marcus Holland-Moritz
View
@@ -222,7 +222,7 @@ sub _determine_version {
my ($foo,$bar) = ( split /\s+/ )[1,2];
$defines{$foo} = $bar;
}
- if ( my @wotsits = grep { defined $defines{$_} } qw(PERL_REVISION PERL_VERSION PERL_API_SUBVERSION) ) {
+ if ( my @wotsits = grep { defined $defines{$_} } qw(PERL_REVISION PERL_VERSION PERL_SUBVERSION) ) {
$version = join '.', map { $defines{$_} } @wotsits;
}
else {
View
@@ -4,7 +4,7 @@ use Test::More qq'no_plan';
use File::Spec;
use Devel::PatchPerl;
my %vers = (
- File::Spec->catdir( 't', 'modern' ), '5.15.1',
+ File::Spec->catdir( 't', 'modern' ), '5.14.2',
File::Spec->catdir( 't', 'old' ), '5.005_04',
);
foreach my $dir ( keys %vers ) {
View
@@ -14,8 +14,8 @@
* exactly on the third column */
#define PERL_REVISION 5 /* age */
-#define PERL_VERSION 15 /* epoch */
-#define PERL_SUBVERSION 1 /* generation */
+#define PERL_VERSION 14 /* epoch */
+#define PERL_SUBVERSION 2 /* generation */
/* The following numbers describe the earliest compatible version of
Perl ("compatibility" here being defined as sufficient binary/API
@@ -35,8 +35,8 @@
changing them should not be necessary.
*/
#define PERL_API_REVISION 5
-#define PERL_API_VERSION 15
-#define PERL_API_SUBVERSION 1
+#define PERL_API_VERSION 14
+#define PERL_API_SUBVERSION 0
/*
XXX Note: The selection of non-default Configure options, such
as -Duselonglong may invalidate these settings. Currently, Configure

0 comments on commit b737b85

Please sign in to comment.