+6.37_03 Mon Nov 26 14:15:34 PST 2007
+ Tests
+ - parse_version.t had wrong test count when version.pm isn't installed.
+ - Fixed some warnings in the XS module we're using for testing.
+ - "our $VERSION" test in parse_version.t was never running
+ - Quoting uses of 1.2.3 style versions in parse_version.t to protect
+ older perls.
+
+ Portability
+ - Moved the minimum required version up to 5.6.0.
+
6.37_02 Sun Nov 25 23:33:14 PST 2007
Test Improvements
- Added a test for a basic XS build.
@EXPORT = qw(test_harness pod2man perllocal_install uninstall
warn_if_old_packlist);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
my $Is_VMS = $^O eq 'VMS';
use strict;
use vars qw($VERSION @ISA);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
use File::Spec;
require ExtUtils::Liblist::Kid;
use strict;
use vars qw($VERSION);
-$VERSION = 6.37_02;
+$VERSION = 6.37_03;
use Config;
use Cwd 'cwd';
use strict;
use ExtUtils::MakeMaker::Config;
use vars qw(@ISA $VERSION);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
require ExtUtils::Liblist;
require ExtUtils::MakeMaker;
use strict;
use vars qw($VERSION @ISA);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
require ExtUtils::MM_Unix;
@ISA = qw(ExtUtils::MM_Unix);
use strict;
use vars qw($VERSION @ISA);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
use Carp;
use File::Spec;
use vars qw(@ISA $VERSION);
@ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
=item os_flavor
require ExtUtils::MM_Unix;
@ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
=head1 NAME
use strict;
use vars qw($VERSION @ISA);
-$VERSION = 6.37_02;
+$VERSION = 6.37_03;
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
use strict;
use vars qw($VERSION);
-$VERSION = 6.37_02;
+$VERSION = 6.37_03;
sub new {
die <<'UNSUPPORTED';
use File::Basename;
use vars qw(@ISA $VERSION);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
require ExtUtils::MM_Win32;
@ISA = qw(ExtUtils::MM_Win32);
use ExtUtils::MakeMaker qw(neatvalue);
use File::Spec;
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
use strict;
use vars qw($VERSION @ISA);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
require ExtUtils::MM_Unix;
@ISA = qw(ExtUtils::MM_Unix);
use strict;
use vars qw($VERSION @ISA);
-$VERSION = 6.37_02;
+$VERSION = 6.37_03;
require ExtUtils::MM_Unix;
@ISA = qw(ExtUtils::MM_Unix);
use ExtUtils::MakeMaker qw($Verbose neatvalue);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
require ExtUtils::MM_Any;
@ISA = qw(ExtUtils::MM_Any);
# $Revision can't be on the same line or SVN/K gets confused
use vars qw($Revision
$VERSION @ISA);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
use strict;
use vars qw($VERSION @ISA);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
require ExtUtils::MM_Unix;
@ISA = qw(ExtUtils::MM_Unix);
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
@ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
$ENV{EMXSHELL} = 'sh'; # to run `commands`
use strict;
use vars qw($VERSION @ISA);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
require ExtUtils::MM_Win32;
@ISA = qw(ExtUtils::MM_Win32);
require ExtUtils::MM;
use vars qw(@ISA $VERSION);
-$VERSION = 6.37_02;
+$VERSION = 6.37_03;
@ISA = qw(ExtUtils::MM);
{
-# $Id: /local/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm 40883 2007-11-26T07:33:12.936163Z schwern $
+# $Id: /local/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm 40895 2007-11-26T22:15:59.362661Z schwern $
package ExtUtils::MakeMaker;
BEGIN {require 5.005_03;}
use vars qw($Revision);
use strict;
-$VERSION = '6.37_02';
-($Revision) = q$Revision: 40883 $ =~ /Revision:\s+(\S+)/;
+$VERSION = '6.37_03';
+($Revision) = q$Revision: 40895 $ =~ /Revision:\s+(\S+)/;
@ISA = qw(Exporter);
@EXPORT = qw(&WriteMakefile &writeMakefile $Verbose &prompt);
$VERSION = '1.00';
*VERSION = \'1.01';
- ($VERSION) = q$Revision: 40883 $ =~ /(\d+)/g;
+ ($VERSION) = q$Revision: 40895 $ =~ /(\d+)/g;
$FOO::VERSION = '1.10';
*FOO::VERSION = \'1.11';
our $VERSION = 1.2.3; # new for perl5.6.0
package ExtUtils::MakeMaker::Config;
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
use strict;
use Config ();
use strict;
use vars qw($VERSION);
-$VERSION = 6.37_02;
+$VERSION = 6.37_03;
my $Have_Bytes = eval q{require bytes; 1;};
use strict;
use vars qw($VERSION);
-$VERSION = 6.37_02;
+$VERSION = 6.37_03;
my $IsVMS = $^O eq 'VMS';
use strict 'refs';
use vars qw($VERSION @ISA @EXPORT);
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
require Exporter;
@ISA = ('Exporter');
use vars qw(@ISA @EXPORT $VERSION);
@ISA = 'Exporter';
@EXPORT = '&Mksymlists';
-$VERSION = '6.37_02';
+$VERSION = '6.37_03';
sub Mksymlists {
my(%spec) = @_;
use Test::More;
use ExtUtils::MakeMaker;
-my $Has_Version = eval 'require version; "version"->import';
-my $Has_Our = eval 'our $foo';
+my $Has_Version = eval 'require version; "version"->import; 1';
-my %versions = (q[$VERSION = '1.00'] => '1.00',
- q[*VERSION = \'1.01'] => '1.01',
+my %versions = (q[$VERSION = '1.00'] => '1.00',
+ q[*VERSION = \'1.01'] => '1.01',
q[($VERSION) = q$Revision: 32208 $ =~ /(\d+)/g;] => 32208,
- q[$FOO::VERSION = '1.10';] => '1.10',
- q[*FOO::VERSION = \'1.11';] => '1.11',
- '$VERSION = 0.02' => 0.02,
- '$VERSION = 0.0' => 0.0,
- '$VERSION = -1.0' => -1.0,
- '$VERSION = undef' => 'undef',
- '$wibble = 1.0' => 'undef',
+ q[$FOO::VERSION = '1.10';] => '1.10',
+ q[*FOO::VERSION = \'1.11';] => '1.11',
+ '$VERSION = 0.02' => 0.02,
+ '$VERSION = 0.0' => 0.0,
+ '$VERSION = -1.0' => -1.0,
+ '$VERSION = undef' => 'undef',
+ '$wibble = 1.0' => 'undef',
q[my $VERSION = '1.01'] => 'undef',
q[local $VERISON = '1.02'] => 'undef',
q[local $FOO::VERSION = '1.30'] => 'undef',
+ q[our $VERSION = '1.23';] => '1.23',
);
-if( $Has_Our ) {
- $versions{q[our $VERSION = '1.23';]} = '1.23',
-}
-
if( $Has_Version ) {
- $versions{q[use version; $VERSION = qv(1.2.3);]} = qv(1.2.3);
- $versions{q[$VERSION = qv(1.2.3)]} = qv(1.2.3);
+ $versions{q[use version; $VERSION = qv("1.2.3");]} = qv("1.2.3");
+ $versions{q[$VERSION = qv("1.2.3")]} = qv("1.2.3");
}
plan tests => (2 * keys %versions) + 4;
}
+# This is a specific test to see if a version subroutine in the $VERSION
+# declaration confuses later calls to the version class.
+# [rt.cpan.org 30747]
SKIP: {
- skip "need version.pm", 2 unless $Has_Version;
+ skip "need version.pm", 4 unless $Has_Version;
is parse_version_string(q[ $VERSION = '1.00'; sub version { $VERSION } ]),
'1.00';
- is parse_version_string(q[ use version; $VERSION = version->new(1.23) ]),
- '1.23';
+ is parse_version_string(q[ use version; $VERSION = version->new("1.2.3") ]),
+ qv("1.2.3");
}
use strict;
use vars qw($VERSION);
-$VERSION = 6.37_02;
+$VERSION = 6.37_03;
use Cwd;
use File::Spec;
END
'XS-Test/Test.xs' => <<'END',
-#include "EXTERN.h";
-#include "perl.h";
-#include "XSUB.h";
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
MODULE = XS::Test PACKAGE = XS::Test
+PROTOTYPES: DISABLE
+
int
is_even(input)
int input