r69817 - in /trunk/libperl-minimumversion-perl: ./ debian/ inc/Module/Install/ lib/Perl/ lib/Perl/MinimumVersion/ script/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Feb 27 02:33:52 UTC 2011
Author: jawnsy-guest
Date: Sun Feb 27 02:33:44 2011
New Revision: 69817
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69817
Log:
* New upstream release
* Bump debhelper compat to 8
* Refresh copyright information
* Standards-Version 3.9.1 (no changes)
* Drop version dependencies satisfied in oldstable
Added:
trunk/libperl-minimumversion-perl/inc/Module/Install/DSL.pm
- copied unchanged from r69812, branches/upstream/libperl-minimumversion-perl/current/inc/Module/Install/DSL.pm
trunk/libperl-minimumversion-perl/t/12_double_colon.t
- copied unchanged from r69812, branches/upstream/libperl-minimumversion-perl/current/t/12_double_colon.t
Removed:
trunk/libperl-minimumversion-perl/inc/Module/Install/With.pm
Modified:
trunk/libperl-minimumversion-perl/Changes
trunk/libperl-minimumversion-perl/MANIFEST
trunk/libperl-minimumversion-perl/META.yml
trunk/libperl-minimumversion-perl/Makefile.PL
trunk/libperl-minimumversion-perl/README
trunk/libperl-minimumversion-perl/debian/changelog
trunk/libperl-minimumversion-perl/debian/compat
trunk/libperl-minimumversion-perl/debian/control
trunk/libperl-minimumversion-perl/debian/copyright
trunk/libperl-minimumversion-perl/lib/Perl/MinimumVersion.pm
trunk/libperl-minimumversion-perl/lib/Perl/MinimumVersion/Reason.pm
trunk/libperl-minimumversion-perl/script/perlver
trunk/libperl-minimumversion-perl/t/02_main.t
trunk/libperl-minimumversion-perl/t/10_yada_yada_yada.t
Modified: trunk/libperl-minimumversion-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/Changes?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/Changes (original)
+++ trunk/libperl-minimumversion-perl/Changes Sun Feb 27 02:33:44 2011
@@ -1,4 +1,12 @@
Revision history for Perl extension Perl-MinimumVersion
+
+1.27 Sat 26 Feb 2011
+ - Updating to Module::Install::DSL 1.00
+ - Updating copyright year
+ - Fix detection of binary numbers (Alexandr Ciornii)
+ - Add check for variables added in 5.5 (Alexandr Ciornii)
+ - Correct detection of different cases of '...' (Alexandr Ciornii)
+ - Detection of bareword that ends with double colon (Alexandr Ciornii)
1.26 Thu 22 Jul 2010
- Detect "package NAME VERSION" in 5.12. (Steffen Mueller)
Modified: trunk/libperl-minimumversion-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/MANIFEST?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/MANIFEST (original)
+++ trunk/libperl-minimumversion-perl/MANIFEST Sun Feb 27 02:33:44 2011
@@ -2,12 +2,12 @@
inc/Module/Install.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
+inc/Module/Install/DSL.pm
inc/Module/Install/Fetch.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Scripts.pm
inc/Module/Install/Win32.pm
-inc/Module/Install/With.pm
inc/Module/Install/WriteAll.pm
lib/Perl/MinimumVersion.pm
lib/Perl/MinimumVersion/Reason.pm
@@ -28,6 +28,7 @@
t/09_pkg_name_version.t
t/10_yada_yada_yada.t
t/11_feature_bundle_512.t
+t/12_double_colon.t
xt/meta.t
xt/pmv.t
xt/pod.t
Modified: trunk/libperl-minimumversion-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/META.yml?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/META.yml (original)
+++ trunk/libperl-minimumversion-perl/META.yml Sun Feb 27 02:33:44 2011
@@ -25,8 +25,8 @@
requires:
File::Find::Rule: 0.32
File::Find::Rule::Perl: 1.04
- List::Util: 1.18
- PPI: 1.205
+ List::Util: 1.20
+ PPI: 1.215
Params::Util: 0.25
Perl::Critic::Utils: 1.104
perl: 5.6.0
@@ -35,4 +35,4 @@
ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/Perl-MinimumVersion
license: http://dev.perl.org/licenses/
repository: http://svn.ali.as/cpan/trunk/Perl-MinimumVersion
-version: 1.26
+version: 1.27
Modified: trunk/libperl-minimumversion-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/Makefile.PL?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/Makefile.PL (original)
+++ trunk/libperl-minimumversion-perl/Makefile.PL Sun Feb 27 02:33:44 2011
@@ -1,19 +1,14 @@
-use inc::Module::Install 0.82;
+use inc::Module::Install::DSL 1.00;
-all_from 'lib/Perl/MinimumVersion.pm';
-
-# Push the versioning for version.pm heavily,
-# as it has been through flaky periods
-requires 'version' => '0.76';
-requires 'List::Util' => winlike() ? '1.19' : '1.18';
-requires 'Params::Util' => '0.25';
-requires 'File::Find::Rule' => '0.32';
-requires 'File::Find::Rule::Perl' => '1.04';
-requires 'PPI' => '1.205';
-requires 'Perl::Critic::Utils' => '1.104';
-test_requires 'File::Spec' => '0.80';
-test_requires 'Test::More' => '0.47';
-test_requires 'Test::Script' => '1.03';
-install_script 'perlver';
-
-WriteAll;
+all_from lib/Perl/MinimumVersion.pm
+requires version 0.76
+requires List::Util 1.20
+requires Params::Util 0.25
+requires File::Find::Rule 0.32
+requires File::Find::Rule::Perl 1.04
+requires PPI 1.215
+requires Perl::Critic::Utils 1.104
+test_requires File::Spec 0.80
+test_requires Test::More 0.47
+test_requires Test::Script 1.03
+install_script perlver
Modified: trunk/libperl-minimumversion-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/README?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/README (original)
+++ trunk/libperl-minimumversion-perl/README Sun Feb 27 02:33:44 2011
@@ -147,7 +147,7 @@
<http://ali.as/>, PPI, version
COPYRIGHT
- Copyright 2005 - 2010 Adam Kennedy.
+ Copyright 2005 - 2011 Adam Kennedy.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: trunk/libperl-minimumversion-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/debian/changelog?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/debian/changelog (original)
+++ trunk/libperl-minimumversion-perl/debian/changelog Sun Feb 27 02:33:44 2011
@@ -1,4 +1,11 @@
-libperl-minimumversion-perl (1.26-2) UNRELEASED; urgency=low
+libperl-minimumversion-perl (1.27-1) UNRELEASED; urgency=low
+
+ [ Jonathan Yu ]
+ * New upstream release
+ * Bump debhelper compat to 8
+ * Refresh copyright information
+ * Standards-Version 3.9.1 (no changes)
+ * Drop version dependencies satisfied in oldstable
[ Salvatore Bonaccorso ]
* Update my email address.
@@ -6,7 +13,7 @@
[ Ansgar Burchardt ]
* Update my email address.
- -- Salvatore Bonaccorso <carnil at debian.org> Sun, 10 Oct 2010 15:03:30 +0200
+ -- Jonathan Yu <jawnsy at cpan.org> Sat, 26 Feb 2011 21:54:25 -0500
libperl-minimumversion-perl (1.26-1) unstable; urgency=low
Modified: trunk/libperl-minimumversion-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/debian/compat?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/debian/compat (original)
+++ trunk/libperl-minimumversion-perl/debian/compat Sun Feb 27 02:33:44 2011
@@ -1,1 +1,1 @@
-7
+8
Modified: trunk/libperl-minimumversion-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/debian/control?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/debian/control (original)
+++ trunk/libperl-minimumversion-perl/debian/control Sun Feb 27 02:33:44 2011
@@ -1,11 +1,13 @@
Source: libperl-minimumversion-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: perl, libppi-perl (>= 1.205), libfile-find-rule-perl (>= 0.32),
- libparams-util-perl (>= 0.25), libfile-find-rule-perl-perl (>= 1.04),
+Build-Depends: debhelper (>= 8)
+Build-Depends-Indep: perl,
+ libppi-perl (>= 1.215),
+ libfile-find-rule-perl (>= 0.32),
+ libparams-util-perl (>= 0.25),
+ libfile-find-rule-perl-perl (>= 1.04),
libtest-script-perl (>= 1.03),
- perl (>= 5.10) | libversion-perl (>= 0.74),
libperl-critic-perl (>= 1.104)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Vincent Danjean <vdanjean at debian.org>,
@@ -13,16 +15,18 @@
Jonathan Yu <jawnsy at cpan.org>, Brian Cassidy <brian.cassidy at gmail.com>,
Salvatore Bonaccorso <carnil at debian.org>,
gregor herrmann <gregoa at debian.org>
-Standards-Version: 3.9.0
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/Perl-MinimumVersion/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libperl-minimumversion-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libperl-minimumversion-perl/
Package: libperl-minimumversion-perl
Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends}, libppi-perl (>= 1.205),
- perl (>= 5.10) | libversion-perl (>= 0.74), libfile-find-rule-perl (>= 0.32),
- libfile-find-rule-perl-perl, libparams-util-perl (>= 0.25),
+Depends: ${misc:Depends}, ${perl:Depends},
+ libppi-perl (>= 1.215),
+ libfile-find-rule-perl (>= 0.32),
+ libfile-find-rule-perl-perl,
+ libparams-util-perl (>= 0.25),
libperl-critic-perl (>= 1.104)
Description: module to determine minimum required version of perl required
Perl::MinimumVersion is a module that inspects arbitrary Perl source code and
Modified: trunk/libperl-minimumversion-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/debian/copyright?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/debian/copyright (original)
+++ trunk/libperl-minimumversion-perl/debian/copyright Sun Feb 27 02:33:44 2011
@@ -3,7 +3,7 @@
Source: http://search.cpan.org/dist/Perl-MinimumVersion/
Name: Perl-MinimumVersion
-Copyright: 2005-2010, Adam Kennedy <adamk at cpan.org>
+Copyright: 2005-2011, Adam Kennedy <adamk at cpan.org>
License: Artistic or GPL-1+
Files: inc/Module/*
@@ -16,7 +16,7 @@
Copyright: 2008, Damyan Ivanov <dmn at debian.org>
2008, Vincent Danjean <vdanjean at debian.org>
2009, Ansgar Burchardt <ansgar at debian.org>
- 2009, Jonathan Yu <jawnsy at cpan.org>
+ 2009-2011, Jonathan Yu <jawnsy at cpan.org>
2010, Brian Cassidy <brian.cassidy at gmail.com>
2010, Salvatore Bonaccorso <carnil at debian.org>
2010, gregor herrmann <gregoa at debian.org>
@@ -26,8 +26,8 @@
This program is free software; you can redistribute it and/or modify
it under the terms of the Artistic License, which comes with Perl.
.
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ On Debian systems, the complete text of the Artistic License can be
+ found in `/usr/share/common-licenses/Artistic'
License: GPL-1+
This program is free software; you can redistribute it and/or modify
@@ -35,5 +35,5 @@
the Free Software Foundation; either version 1, or (at your option)
any later version.
.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ On Debian systems, the complete text of version 1 of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL-1'
Modified: trunk/libperl-minimumversion-perl/lib/Perl/MinimumVersion.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/lib/Perl/MinimumVersion.pm?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/lib/Perl/MinimumVersion.pm (original)
+++ trunk/libperl-minimumversion-perl/lib/Perl/MinimumVersion.pm Sun Feb 27 02:33:44 2011
@@ -54,7 +54,7 @@
use vars qw{$VERSION @ISA @EXPORT_OK %CHECKS %MATCHES};
BEGIN {
- $VERSION = '1.26';
+ $VERSION = '1.27';
# Only needed for dev releases, comment out otherwise
$VERSION = eval $VERSION;
@@ -104,6 +104,8 @@
_any_INIT_blocks => version->new('5.005'),
_substr_4_arg => version->new('5.005'),
_splice_negative_length => version->new('5.005'),
+ _5005_variables => version->new('5.005'),
+ _bareword_ends_with_double_colon => version->new('5.005'),
_postfix_foreach => version->new('5.004.05'),
);
@@ -515,7 +517,12 @@
sub _yada_yada_yada {
shift->Document->find_first( sub {
$_[1]->isa('PPI::Token::Operator')
- and $_[1]->content eq '...'
+ and $_[1]->content eq '...' or return '';
+ my @child = $_[1]->parent->schildren;
+ @child == 1 and return 1;
+ if (@child == 2) {
+ $child[1]->isa('PPI::Token::Structure')
+ }
} );
}
@@ -661,11 +668,7 @@
sub _any_binary_literals {
shift->Document->find_first( sub {
- $_[1]->isa('PPI::Token::Number')
- and
- $_[1]->{_subtype}
- and
- $_[1]->{_subtype} eq 'binary'
+ $_[1]->isa('PPI::Token::Number::Binary')
} );
}
@@ -805,10 +808,10 @@
sub _three_argument_open {
shift->Document->find_first( sub {
- $_[1]->isa('PPI::Statement') or return '';
- my @children=$_[1]->children;
+ $_[1]->isa('PPI::Statement') or return '';
+ my @children = $_[1]->children;
#@children >= 7 or return '';
- my $main_element=$children[0];
+ my $main_element = $children[0];
$main_element->isa('PPI::Token::Word') or return '';
$main_element->content eq 'open' or return '';
my @arguments = parse_arg_list($main_element);
@@ -818,7 +821,6 @@
return '';
} );
}
-
sub _substr_4_arg {
shift->Document->find_first( sub {
@@ -931,6 +933,22 @@
}
+sub _5005_variables {
+ shift->Document->find_first( sub {
+ $_[1]->isa('PPI::Token::Magic')
+ and
+ ($_[1]->content eq '$!' or $_[1]->content eq '$^R')
+ } );
+}
+
+#added in 5.5
+sub _bareword_ends_with_double_colon {
+ shift->Document->find_first( sub {
+ $_[1]->isa('PPI::Token::Word')
+ and
+ $_[1]->content =~ /::$/
+ } );
+}
@@ -1026,7 +1044,7 @@
=head1 COPYRIGHT
-Copyright 2005 - 2010 Adam Kennedy.
+Copyright 2005 - 2011 Adam Kennedy.
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
Modified: trunk/libperl-minimumversion-perl/lib/Perl/MinimumVersion/Reason.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/lib/Perl/MinimumVersion/Reason.pm?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/lib/Perl/MinimumVersion/Reason.pm (original)
+++ trunk/libperl-minimumversion-perl/lib/Perl/MinimumVersion/Reason.pm Sun Feb 27 02:33:44 2011
@@ -10,7 +10,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.26';
+ $VERSION = '1.27';
# Only needed for dev releases, comment out otherwise
$VERSION = eval $VERSION;
Modified: trunk/libperl-minimumversion-perl/script/perlver
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/script/perlver?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/script/perlver (original)
+++ trunk/libperl-minimumversion-perl/script/perlver Sun Feb 27 02:33:44 2011
@@ -57,7 +57,7 @@
use vars qw{$VERSION $VERBOSE $BLAME $EXPLAIN};
BEGIN {
- $VERSION = '1.24';
+ $VERSION = '1.27';
# Configuration globals
$VERBOSE = '';
@@ -306,11 +306,13 @@
my $char = $element->column_number;
my $content = $element->content;
my $rule = $max->rule;
+ my $version = $max->version;
print " ------------------------------------------------------------\n";
- print " File : $file\n";
- print " Line : $line\n";
- print " Char : $char\n";
- print " Rule : $rule\n";
+ print " File : $file\n";
+ print " Line : $line\n";
+ print " Char : $char\n";
+ print " Rule : $rule\n";
+ print " Version : $version\n";
print " ------------------------------------------------------------\n";
print " $content\n";
print " ------------------------------------------------------------\n";
@@ -416,7 +418,7 @@
=head1 COPYRIGHT
-Copyright 2005 - 2010 Adam Kennedy.
+Copyright 2005 - 2011 Adam Kennedy.
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
Modified: trunk/libperl-minimumversion-perl/t/02_main.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/t/02_main.t?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/t/02_main.t (original)
+++ trunk/libperl-minimumversion-perl/t/02_main.t Sun Feb 27 02:33:44 2011
@@ -8,7 +8,7 @@
$^W = 1;
}
-use Test::More tests => 75;
+use Test::More tests => 82;
use version;
use File::Spec::Functions ':ALL';
use PPI;
@@ -158,6 +158,14 @@
END_PERL
}
+# Regression: binary
+SCOPE: {
+my $v = version_is( <<'END_PERL', '5.006', 'binary' );
+$c=0b10000001;
+1;
+END_PERL
+}
+
# Check the use of constant hashes
SCOPE: {
my $v = version_is( <<'END_PERL', '5.008', 'constant hash adds a 5.008 dep' );
@@ -181,7 +189,7 @@
my $v = version_is( <<'END_PERL', '5.010', '"use mro" matches expected version' );
use mro 'c3';
END_PERL
-ok( $v->_perl_5010_pragmas, '->_any_our_variables returns true' );
+ok( $v->_perl_5010_pragmas, '->_perl_5010_pragmas returns true' );
}
# Check "version number"
@@ -199,6 +207,16 @@
END_PERL
ok( $v->_local_soft_reference, '->_local_soft_reference returns true' );
}
+
+# Check variables added in 5.5
+SCOPE: {
+my $v = version_is( <<'END_PERL', '5.005', 'variables added in 5.5' );
+$! + $^R;
+END_PERL
+ok( $v->_5005_variables, '->_5005_variables returns true' );
+}
+
+
# Check that minimum_syntax_version's limit param is respected
SCOPE: {
Modified: trunk/libperl-minimumversion-perl/t/10_yada_yada_yada.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-minimumversion-perl/t/10_yada_yada_yada.t?rev=69817&op=diff
==============================================================================
--- trunk/libperl-minimumversion-perl/t/10_yada_yada_yada.t (original)
+++ trunk/libperl-minimumversion-perl/t/10_yada_yada_yada.t Sun Feb 27 02:33:44 2011
@@ -12,13 +12,15 @@
use Perl::MinimumVersion;
my @examples_not=(
q{'foo'.'foo'}, # okay, okay, adding close examples is a TODO
- q{sub foo {}},
+ q/sub foo {}/,
+ q{1 ... 3}, #sed version of flip-flop
);
my @examples_yes=(
q{...},
+ q{ ... },
q{...;},
- q{if(1){...}},
- q{sub foo {...}},
+ q/if(1){...}/,
+ q/sub foo {...}/,
);
plan tests =>(@examples_not+ at examples_yes);
foreach my $example (@examples_not) {
More information about the Pkg-perl-cvs-commits
mailing list