Hello community, here is the log from the commit of package cpanspec for openSUSE:Factory checked in at Tue Aug 9 16:37:14 CEST 2011. -------- --- cpanspec/cpanspec.changes 2011-05-31 12:49:45.000000000 +0200 +++ /mounts/work_src_done/STABLE/cpanspec/cpanspec.changes 2011-08-02 10:32:42.000000000 +0200 @@ -1,0 +2,6 @@ +Tue Aug 2 08:31:21 UTC 2011 - coolo@novell.com + +- Stephan Kulow (1): + one more way to parse the requires (may produce false positives) + +------------------------------------------------------------------- calling whatdependson for head-i586 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ cpanspec.spec ++++++ --- /var/tmp/diff_new_pack.tmcKXF/_old 2011-08-09 16:36:51.000000000 +0200 +++ /var/tmp/diff_new_pack.tmcKXF/_new 2011-08-09 16:36:51.000000000 +0200 @@ -19,7 +19,7 @@ Name: cpanspec Version: 1.78.05 -Release: 1 +Release: 31 %define cpan_name cpanspec Summary: Generate a SUSE spec file for a CPAN module License: GPL+ or Artistic @@ -39,6 +39,7 @@ BuildRequires: perl(Pod::Simple::TextContent) BuildRequires: perl(Text::Autoformat) BuildRequires: perl(YAML) +BuildRequires: perl(Perl::PrereqScanner) Requires: perl(Archive::Tar) Requires: perl(Archive::Zip) Recommends: perl(IO::Uncompress::Bunzip2) @@ -47,6 +48,7 @@ Requires: perl(Pod::Simple::TextContent) Requires: perl(Text::Autoformat) Requires: perl(YAML) +Requires: perl(Perl::PrereqScanner) %{perl_requires} %description ++++++ cpanspec-1.78.05.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/cpanspec-1.78.05/cpanspec new/cpanspec-1.78.05/cpanspec --- old/cpanspec-1.78.05/cpanspec 2011-05-31 13:01:02.000000000 +0200 +++ new/cpanspec-1.78.05/cpanspec 2011-08-02 10:31:20.000000000 +0200 @@ -217,6 +217,7 @@ use File::Temp; use File::Path qw(rmtree); use Intrusive; +use Perl::PrereqScanner; # Apparently gets pulled in by another module. #use Cwd; @@ -1045,6 +1046,29 @@ $build_requires{$dep}=$lrequires{$dep}; } + my %packages = (); + + my $scanner = Perl::PrereqScanner->new; + foreach my $test (grep /\.(pm|t|PL|pl)/, @files) { + my $doc = PPI::Document->new($basedir . $path . "/" . $test); + + # Get the name of the main package + my $pkg = $doc->find_first('PPI::Statement::Package'); + if ($pkg) { + $packages{$pkg->namespace} = 1; + } + + my %scanneddeps = %{$scanner->scan_ppi_document($doc)->as_string_hash}; + foreach my $dep (keys(%scanneddeps)) { + my $ndep = $scanneddeps{$dep}; + unless ($build_requires{$dep} && $build_requires{$dep} > $ndep) { + $build_requires{$dep}=$scanneddeps{$dep}; + } + } + } + + foreach my $pkg (keys %packages) { delete $build_requires{$pkg} }; + my %hdoc = (); if (@doc) { foreach my $d (@doc) { ++++++ updaterpm.sh ++++++ --- /var/tmp/diff_new_pack.tmcKXF/_old 2011-08-09 16:36:51.000000000 +0200 +++ /var/tmp/diff_new_pack.tmcKXF/_new 2011-08-09 16:36:51.000000000 +0200 @@ -1,6 +1,6 @@ #! /bin/sh -rev=d0eb41e203789118fa2bcc878d9da725813679e2 +rev=8ffa1e88a8b05c300274b844fde2700ca4768e14 git clone --depth 0 http://git.gitorious.org/opensuse/cpanspec.git cd cpanspec nrev=`git show HEAD| grep commit | head -n 1 | cut '-d ' -f2` ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org