Hello community,
here is the log from the commit of package perl-Module-ScanDeps for
openSUSE:Factory checked in at 2014-02-12 07:17:34
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Module-ScanDeps (Old)
and /work/SRC/openSUSE:Factory/.perl-Module-ScanDeps.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Module-ScanDeps"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Module-ScanDeps/perl-Module-ScanDeps.changes
2013-12-11 11:31:57.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Module-ScanDeps.new/perl-Module-ScanDeps.changes
2014-02-12 09:48:25.000000000 +0100
@@ -1,0 +2,7 @@
+Sun Feb 9 13:34:24 UTC 2014 - [email protected]
+
+- updated to 1.13
+ * Fix recognition of (open() arguments) "<:encoding(klingon)",
+ implies modules PerlIO and PerlIO::encoding.
+
+-------------------------------------------------------------------
Old:
----
Module-ScanDeps-1.12.tar.gz
New:
----
Module-ScanDeps-1.13.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Module-ScanDeps.spec ++++++
--- /var/tmp/diff_new_pack.YFXeh2/_old 2014-02-12 09:48:26.000000000 +0100
+++ /var/tmp/diff_new_pack.YFXeh2/_new 2014-02-12 09:48:26.000000000 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Module-ScanDeps
#
-# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,7 +17,7 @@
Name: perl-Module-ScanDeps
-Version: 1.12
+Version: 1.13
Release: 0
%define cpan_name Module-ScanDeps
Summary: Recursively scan Perl code for dependencies
@@ -31,37 +31,6 @@
BuildRequires: perl(Module::Build::ModuleInfo)
BuildRequires: perl(Test::Requires)
BuildRequires: perl(version)
-#BuildRequires: perl(chicken)
-#BuildRequires: perl(CPANPLUS::Backend)
-#BuildRequires: perl(Duplicated)
-#BuildRequires: perl(egg)
-#BuildRequires: perl(inc::Module::Install) >= 1.00
-#BuildRequires: perl(inner_diamond_E)
-#BuildRequires: perl(inner_diamond_N)
-#BuildRequires: perl(inner_diamond_S)
-#BuildRequires: perl(inner_diamond_W)
-#BuildRequires: perl(JSON)
-#BuildRequires: perl(LWP::Simple)
-#BuildRequires: perl(Module::Build)
-#BuildRequires: perl(Module::Install::Base)
-#BuildRequires: perl(Module::Pluggable)
-#BuildRequires: perl(Module::ScanDeps)
-#BuildRequires: perl(Module::ScanDeps::Cache)
-#BuildRequires: perl(Module::ScanDeps::DataFeed)
-#BuildRequires: perl(outer_diamond_E)
-#BuildRequires: perl(outer_diamond_S)
-#BuildRequires: perl(outer_diamond_W)
-#BuildRequires: perl(Parse::CPAN::Meta)
-#BuildRequires: perl(prefork)
-#BuildRequires: perl(Scoped::Package)
-#BuildRequires: perl(Some)
-#BuildRequires: perl(test)
-#BuildRequires: perl(TestA)
-#BuildRequires: perl(TestB)
-#BuildRequires: perl(TestC)
-#BuildRequires: perl(TestD)
-#BuildRequires: perl(Utils)
-#BuildRequires: perl(YAML::Tiny)
Requires: perl(Module::Build::ModuleInfo)
Requires: perl(version)
%{perl_requires}
++++++ Module-ScanDeps-1.12.tar.gz -> Module-ScanDeps-1.13.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.12/Changes
new/Module-ScanDeps-1.13/Changes
--- old/Module-ScanDeps-1.12/Changes 2013-12-01 15:42:27.000000000 +0100
+++ new/Module-ScanDeps-1.13/Changes 2013-12-21 12:58:35.000000000 +0100
@@ -1,3 +1,7 @@
+[Changes for 1.12 - 2013-12-21]
+* Fix recognition of (open() arguments) "<:encoding(klingon)",
+ implies modules PerlIO and PerlIO::encoding.
+
[Changes for 1.12 - 2013-12-01]
* Fix RT #90869: Use of uninitialized value $module in substitution (s///)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.12/META.yml
new/Module-ScanDeps-1.13/META.yml
--- old/Module-ScanDeps-1.12/META.yml 2013-12-01 15:47:07.000000000 +0100
+++ new/Module-ScanDeps-1.13/META.yml 2013-12-21 13:03:57.000000000 +0100
@@ -32,4 +32,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: http://svn.openfoundry.org/par/Module-ScanDeps/trunk/
-version: 1.12
+version: 1.13
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.12/lib/Module/ScanDeps.pm
new/Module-ScanDeps-1.13/lib/Module/ScanDeps.pm
--- old/Module-ScanDeps-1.12/lib/Module/ScanDeps.pm 2013-12-01
15:17:58.000000000 +0100
+++ new/Module-ScanDeps-1.13/lib/Module/ScanDeps.pm 2013-12-21
11:47:19.000000000 +0100
@@ -4,7 +4,7 @@
use warnings;
use vars qw( $VERSION @EXPORT @EXPORT_OK @ISA $CurrentPackage @IncludeLibs
$ScanFileRE );
-$VERSION = '1.12';
+$VERSION = '1.13';
@EXPORT = qw( scan_deps scan_deps_runtime );
@EXPORT_OK = qw( scan_line scan_chunk add_deps scan_deps_runtime
path_to_inc_name );
@@ -960,14 +960,20 @@
my $diamond = $1;
return "File/Glob.pm" if $diamond =~ /[*?\[\]{}~\\]/;
}
+
return "DBD/$1.pm" if /\b[Dd][Bb][Ii]:(\w+):/;
- if (/(?:(:encoding)|\b(?:en|de)code)\(\s*['"]?([-\w]+)/) {
- my $mod = _find_encoding($2);
- my @mods = ( 'Encoding.pm' ); # always needed
- push @mods, 'PerlIO.pm' if $1; # needed for ":encoding(...)"
+
+ # check for stuff like
+ # decode("klingon", ...)
+ # open FH, "<:encoding(klingon)", ...
+ if (my ($io_layer, $encoding) =
/(?:(:encoding)|\b(?:en|de)code)\(\s*['"]?([-\w]+)/) {
+ my @mods;
+ my $mod = _find_encoding($encoding);
push @mods, $mod if $mod; # "external" Encode module
+ push @mods, qw( PerlIO.pm PerlIO/encoding.pm ) if $io_layer;
return \@mods;
}
+
return $1 if /^(?:do|require)\s+[^"]*"(.*?)"/;
return $1 if /^(?:do|require)\s+[^']*'(.*?)'/;
return $1 if /[^\$]\b([\w:]+)->\w/ and $1 ne 'Tk' and $1 ne 'shift';
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
