https://rt.cpan.org/Public/Bug/Display.html?id=119123
version.pm changes alpha version specification. I suppose alpha version test makes no sense now.
From 1d029bc971093697eb0fb4e1d853583da280ff25 Mon Sep 17 00:00:00 2001
From: Shohei YOSHIDA <shohei.yoshida@dena.com>
Date: Thu, 19 Jan 2017 14:58:10 +0900
Subject: [PATCH] Remove alpha version test
version.pm changed alpha version specification so that its test
makes no sense with latest version.pm
---
t/data/Perl/04.pm | 2 +-
t/data/Perl/05.pm | 17 +++++++++++++++--
t/data/Perl/06.pm | 27 ++++++++++++++++-----------
t/data/Perl/07.pm | 23 -----------------------
t/version_from_file_perl.t | 4 ++--
5 files changed, 34 insertions(+), 39 deletions(-)
delete mode 100644 t/data/Perl/07.pm
diff --git a/t/data/Perl/04.pm b/t/data/Perl/04.pm
index 1744dd1..17e4bdd 100644
--- a/t/data/Perl/04.pm
+++ b/t/data/Perl/04.pm
@@ -1,5 +1,5 @@
package something;
-use version; our $VERSION = qv('v1.5_0');
+use version; our $VERSION = qv('1.5.0');
1;
diff --git a/t/data/Perl/05.pm b/t/data/Perl/05.pm
index 17e4bdd..702a4d6 100644
--- a/t/data/Perl/05.pm
+++ b/t/data/Perl/05.pm
@@ -1,5 +1,18 @@
-package something;
+package Git::Jira;
-use version; our $VERSION = qv('1.5.0');
+use strict;
+use warnings;
+use Carp;
+
+use version; our $VERSION = qv('1.5');
+
+use base qw(Exporter);
+our @EXPORT = qw(branch);
+
+use LWP::UserAgent;
+use XML::Simple;
+use Term::ANSIColor;
+
+use constant JIRA_LEAD => 'si/jira.issueviews:issue-xml/';
1;
diff --git a/t/data/Perl/06.pm b/t/data/Perl/06.pm
index 702a4d6..4520ee0 100644
--- a/t/data/Perl/06.pm
+++ b/t/data/Perl/06.pm
@@ -1,18 +1,23 @@
-package Git::Jira;
-
+package ShipIt;
use strict;
-use warnings;
-use Carp;
+use vars qw($VERSION);
+use ShipIt::Conf;
+use ShipIt::State;
+use ShipIt::VC;
+use ShipIt::Util;
+
+$VERSION = '1.005';
+
+=head1 NAME
-use version; our $VERSION = qv('1.5');
+ShipIt - software release tool
-use base qw(Exporter);
-our @EXPORT = qw(branch);
+=head1 SYNOPSIS
-use LWP::UserAgent;
-use XML::Simple;
-use Term::ANSIColor;
+ shipit
-use constant JIRA_LEAD => 'si/jira.issueviews:issue-xml/';
+=head1 OVERVIEW
+=cut
+my $somecode = 1;
1;
diff --git a/t/data/Perl/07.pm b/t/data/Perl/07.pm
deleted file mode 100644
index 4520ee0..0000000
--- a/t/data/Perl/07.pm
+++ /dev/null
@@ -1,23 +0,0 @@
-package ShipIt;
-use strict;
-use vars qw($VERSION);
-use ShipIt::Conf;
-use ShipIt::State;
-use ShipIt::VC;
-use ShipIt::Util;
-
-$VERSION = '1.005';
-
-=head1 NAME
-
-ShipIt - software release tool
-
-=head1 SYNOPSIS
-
- shipit
-
-=head1 OVERVIEW
-=cut
-my $somecode = 1;
-
-1;
diff --git a/t/version_from_file_perl.t b/t/version_from_file_perl.t
index 286930a..e7e03ec 100644
--- a/t/version_from_file_perl.t
+++ b/t/version_from_file_perl.t
@@ -12,7 +12,7 @@ ok($proj);
my $basedir = catfile(qw(t data Perl));
-for my $filenum ( 1 .. 7 ) {
+for my $filenum ( 1 .. 6 ) {
my $origfile = catfile( $basedir, sprintf( '%02d.pm', $filenum ) );
# check we read in the version correctly
@@ -33,7 +33,7 @@ for my $filenum ( 1 .. 7 ) {
# cleanup
END {
eval {
- for ( 1 .. 7 )
+ for ( 1 .. 6 )
{
unlink catfile( $basedir, sprintf( '%02d.pm.new', $_ ) );
}
--
2.11.0
