r56753 - in /branches/upstream/libb-perlreq-perl/current: Changes META.yml README lib/B/PerlReq.pm rpm-build-perl.spec t/02-perlreq.t
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sat Apr 24 10:35:26 UTC 2010
Author: ansgar-guest
Date: Sat Apr 24 10:34:39 2010
New Revision: 56753
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56753
Log:
[svn-upgrade] Integrating new upstream version, libb-perlreq-perl (0.72)
Modified:
branches/upstream/libb-perlreq-perl/current/Changes
branches/upstream/libb-perlreq-perl/current/META.yml
branches/upstream/libb-perlreq-perl/current/README
branches/upstream/libb-perlreq-perl/current/lib/B/PerlReq.pm
branches/upstream/libb-perlreq-perl/current/rpm-build-perl.spec
branches/upstream/libb-perlreq-perl/current/t/02-perlreq.t
Modified: branches/upstream/libb-perlreq-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-perlreq-perl/current/Changes?rev=56753&op=diff
==============================================================================
--- branches/upstream/libb-perlreq-perl/current/Changes (original)
+++ branches/upstream/libb-perlreq-perl/current/Changes Sat Apr 24 10:34:39 2010
@@ -1,3 +1,6 @@
+* Tue Apr 20 2010 Alexey Tourbin <at at altlinux> 0.72-alt1
+- B/PerlReq.pm: implemented support for Moose::with()
+
* Sun Sep 27 2009 Alexey Tourbin <at at altlinux> 0.71-alt1
- PerlReq/Utils.pm: fixed RPM_PERL_LIB_PATH for whitespaces (ALT#21701)
Modified: branches/upstream/libb-perlreq-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-perlreq-perl/current/META.yml?rev=56753&op=diff
==============================================================================
--- branches/upstream/libb-perlreq-perl/current/META.yml (original)
+++ branches/upstream/libb-perlreq-perl/current/META.yml Sat Apr 24 10:34:39 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: rpm-build-perl
-version: 0.71
+version: 0.72
abstract: Calculate dependencies for Perl sources
author:
- Alexey Tourbin <at at altlinux.org>
Modified: branches/upstream/libb-perlreq-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-perlreq-perl/current/README?rev=56753&op=diff
==============================================================================
--- branches/upstream/libb-perlreq-perl/current/README (original)
+++ branches/upstream/libb-perlreq-perl/current/README Sat Apr 24 10:34:39 2010
@@ -1,10 +1,10 @@
-rpm-build-perl version 0.71
+rpm-build-perl version 0.72
B::PerlReq - Perl compiler backend to extract Perl dependencies
perl.req - list requirements for Perl scripts and libraries
perl.prov - list what Perl source files provide
-Copyright (c) 2003, 2004, 2006, 2007, 2008 Alexey Tourbin, ALT Linux Team.
+Copyright (c) 2003, 2004, 2006, 2007, 2008, 2010 Alexey Tourbin, ALT Linux Team.
This is free software; you can redistribute it and/or modify it under the terms
of the GNU General Public License as published by the Free Software Foundation;
Modified: branches/upstream/libb-perlreq-perl/current/lib/B/PerlReq.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-perlreq-perl/current/lib/B/PerlReq.pm?rev=56753&op=diff
==============================================================================
--- branches/upstream/libb-perlreq-perl/current/lib/B/PerlReq.pm (original)
+++ branches/upstream/libb-perlreq-perl/current/lib/B/PerlReq.pm Sat Apr 24 10:34:39 2010
@@ -12,7 +12,7 @@
# and micro hacks.
package B::PerlReq;
-our $VERSION = '0.71';
+our $VERSION = '0.72';
use 5.006;
use strict;
@@ -256,6 +256,28 @@
$methods{$method}->($class, $method, @args);
}
+sub grok_gv {
+ return unless exists $INC{"Moose.pm"};
+
+ my $op = shift;
+ return unless $op->next->name eq "entersub";
+
+ use B::Walker qw(padval);
+ return unless padval($op->padix)->NAME eq "with";
+
+ $op = $op->next->first->first->sibling;
+
+ while ($$op and $op->name eq "const") {
+ my $sv = const_sv($op);
+ $op = $op->sibling;
+ next unless $sv->can("PV");
+ my $mod = $sv->PV;
+ next unless $mod =~ /^\w+(?:::\w+)+\z/;
+ my $f = mod2path($mod);
+ Requires($f);
+ }
+}
+
%B::Walker::Ops = (
'require' => \&grok_require,
'dofile' => \&grok_require,
@@ -264,6 +286,7 @@
'binmode' => \&grok_perlio,
'dbmopen' => sub { Requires("AnyDBM_File.pm") },
'leavetry' => sub { $B::Walker::BlockData{Eval} = $B::Walker::Level },
+ 'gv' => \&grok_gv,
);
sub compile {
Modified: branches/upstream/libb-perlreq-perl/current/rpm-build-perl.spec
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-perlreq-perl/current/rpm-build-perl.spec?rev=56753&op=diff
==============================================================================
--- branches/upstream/libb-perlreq-perl/current/rpm-build-perl.spec (original)
+++ branches/upstream/libb-perlreq-perl/current/rpm-build-perl.spec Sat Apr 24 10:34:39 2010
@@ -1,5 +1,5 @@
Name: rpm-build-perl
-Version: 0.71
+Version: 0.72
Release: alt1
Summary: RPM helper scripts to calculate Perl dependencies
@@ -54,6 +54,9 @@
%config /etc/rpm/macros.d/perl5.env
%changelog
+* Tue Apr 20 2010 Alexey Tourbin <at at altlinux.ru> 0.72-alt1
+- B/PerlReq.pm: implemented support for Moose::with()
+
* Sun Sep 27 2009 Alexey Tourbin <at at altlinux.ru> 0.71-alt1
- PerlReq/Utils.pm: fixed RPM_PERL_LIB_PATH for whitespaces (ALT#21701)
Modified: branches/upstream/libb-perlreq-perl/current/t/02-perlreq.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-perlreq-perl/current/t/02-perlreq.t?rev=56753&op=diff
==============================================================================
--- branches/upstream/libb-perlreq-perl/current/t/02-perlreq.t (original)
+++ branches/upstream/libb-perlreq-perl/current/t/02-perlreq.t Sat Apr 24 10:34:39 2010
@@ -36,7 +36,6 @@
# Valid for perl-5.8.0 - perl-5.8.9.
Requires "AutoLoader.pm" => "perl-base >= 1:5.6.1";
Requires "Exporter.pm" => "perl(Exporter/Heavy.pm) perl-base >= 1:5.6.0";
-Requires "File/Basename.pm" => "perl(re.pm) perl(warnings.pm) perl-base >= 1:5.6.0";
Requires "IO/File.pm" => "perl(File/Spec.pm) perl(IO/Seekable.pm) perl(SelectSaver.pm) perl(Symbol.pm) perl-base >= 1:5.6.1";
Requires "File/Glob.pm" => "perl(Text/ParseWords.pm) perl(XSLoader.pm)";
Requires "Socket.pm" => "perl(warnings/register.pm) perl(XSLoader.pm)";
More information about the Pkg-perl-cvs-commits
mailing list