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