r44181 - in /branches/upstream/libmodule-scandeps-perl/current: Changes MANIFEST META.yml lib/Module/ScanDeps.pm t/16-scan_line.t t/17-private_methods.t
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Thu Sep 17 13:17:08 UTC 2009
Author: ansgar-guest
Date: Thu Sep 17 13:17:04 2009
New Revision: 44181
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44181
Log:
[svn-upgrade] Integrating new upstream version, libmodule-scandeps-perl (0.95)
Added:
branches/upstream/libmodule-scandeps-perl/current/t/16-scan_line.t
branches/upstream/libmodule-scandeps-perl/current/t/17-private_methods.t
Modified:
branches/upstream/libmodule-scandeps-perl/current/Changes
branches/upstream/libmodule-scandeps-perl/current/MANIFEST
branches/upstream/libmodule-scandeps-perl/current/META.yml
branches/upstream/libmodule-scandeps-perl/current/lib/Module/ScanDeps.pm
Modified: branches/upstream/libmodule-scandeps-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-scandeps-perl/current/Changes?rev=44181&op=diff
==============================================================================
--- branches/upstream/libmodule-scandeps-perl/current/Changes (original)
+++ branches/upstream/libmodule-scandeps-perl/current/Changes Thu Sep 17 13:17:04 2009
@@ -1,3 +1,10 @@
+[Changes for 0.95 - 2009-10-16]
+* Fix "uninitialized value" warnings (Dave Rolsky)
+* Add special case for Perl::Critic (Alexandr Ciornii)
+* Add special case for Event (Alexandr Ciornii)
+* Add special case for Wx.pm (Alexandr Ciornii)
+* Add special case for Log::Any
+
[Changes for 0.94 - 2009-08-10]
* Add tests for scan_line (Alexandr Ciornii)
* RT#48151 fixed, "require __PACKAGE__" should not die (Alexandr Ciornii)
Modified: branches/upstream/libmodule-scandeps-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-scandeps-perl/current/MANIFEST?rev=44181&op=diff
==============================================================================
--- branches/upstream/libmodule-scandeps-perl/current/MANIFEST (original)
+++ branches/upstream/libmodule-scandeps-perl/current/MANIFEST Thu Sep 17 13:17:04 2009
@@ -25,6 +25,8 @@
t/13-static_prefork_test.t
t/14-scan_chunk.t
t/14-static_functional_cached.t
+t/16-scan_line.t
+t/17-private_methods.t
t/2-static_functional_interface_fake.t
t/3-static_oo_interface_real.t
t/4-static_functional_interface_options_fake.t
Modified: branches/upstream/libmodule-scandeps-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-scandeps-perl/current/META.yml?rev=44181&op=diff
==============================================================================
--- branches/upstream/libmodule-scandeps-perl/current/META.yml (original)
+++ branches/upstream/libmodule-scandeps-perl/current/META.yml Thu Sep 17 13:17:04 2009
@@ -27,4 +27,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: http://svn.openfoundry.org/par/Module-ScanDeps/trunk/
-version: 0.94
+version: 0.95
Modified: branches/upstream/libmodule-scandeps-perl/current/lib/Module/ScanDeps.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-scandeps-perl/current/lib/Module/ScanDeps.pm?rev=44181&op=diff
==============================================================================
--- branches/upstream/libmodule-scandeps-perl/current/lib/Module/ScanDeps.pm (original)
+++ branches/upstream/libmodule-scandeps-perl/current/lib/Module/ScanDeps.pm Thu Sep 17 13:17:04 2009
@@ -4,7 +4,7 @@
use warnings;
use vars qw( $VERSION @EXPORT @EXPORT_OK @ISA $CurrentPackage @IncludeLibs $ScanFileRE );
-$VERSION = '0.94';
+$VERSION = '0.95';
@EXPORT = qw( scan_deps scan_deps_runtime );
@EXPORT_OK = qw( scan_line scan_chunk add_deps scan_deps_runtime path_to_inc_name );
@@ -275,6 +275,7 @@
termios.ph asm/termios.ph sys/termiox.ph sys/termios.ph sys/ttycom.ph
) ],
'Email/Send.pm' => 'sub',
+ 'Event.pm' => [ map {"Event/$_.pm" } qw(idle io signal timer var)],
'ExtUtils/MakeMaker.pm' => sub {
grep /\bMM_/, _glob_in_inc('ExtUtils', 1);
},
@@ -303,6 +304,7 @@
) ],
'IO/Socket.pm' => [qw( IO/Socket/UNIX.pm )],
'Log/Log4perl.pm' => 'sub',
+ 'Log/Any.pm' => 'sub',
'LWP/UserAgent.pm' => sub {
return(
qw(
@@ -340,6 +342,7 @@
'Net/SSH/Perl.pm' => 'sub',
'PAR/Repository.pm' => 'sub',
'PAR/Repository/Client.pm' => 'sub',
+ 'Perl/Critic.pm' => 'sub', #not only Perl/Critic/Policy
'PDF/API2/Resource/Font.pm' => 'sub',
'PDF/API2/Basic/TTF/Font.pm' => sub {
_glob_in_inc('PDF/API2/Basic/TTF', 1);
@@ -401,6 +404,7 @@
'Win32/Exe.pm' => 'sub',
'Win32/TieRegistry.pm' => [qw( Win32API/Registry.pm )],
'Win32/SystemInfo.pm' => [qw( Win32/cpuspd.dll )],
+ 'Wx.pm' => [qw( attributes.pm Alien/wxWidgets/msw_2_8_10_uni_gcc_3_4/lib/wxbase28u_gcc_custom.dll)], #still cannot find this .dll
'XML/Parser.pm' => sub {
_glob_in_inc('XML/Parser/Style', 1),
_glob_in_inc('XML/Parser/Encodings', 1),
@@ -647,7 +651,7 @@
while ($recurse) {
my $count = keys %$rv;
- my @files = sort grep -T $_->{file}, values %$rv;
+ my @files = sort grep { defined $_->{file} && -T $_->{file} } values %$rv;
scan_deps_static({
files => [ map $_->{file}, @files ],
keys => [ map $_->{key}, @files ],
@@ -1007,9 +1011,11 @@
next if $_->{name} =~ m/(?:^|\/)\.(?:exists|packlist)$/;
my ($ext,$type);
$ext = lc($1) if $_->{name} =~ /(\.[^.]+)$/;
- next if $ext eq lc(lib_ext());
- $type = 'shared' if $ext eq lc(dl_ext());
- $type = 'autoload' if ($ext eq '.ix' or $ext eq '.al');
+ if (defined $ext) {
+ next if $ext eq lc(lib_ext());
+ $type = 'shared' if $ext eq lc(dl_ext());
+ $type = 'autoload' if ($ext eq '.ix' or $ext eq '.al');
+ }
$type ||= 'data';
_add_info( rv => $rv, module => "auto/$path/$_->{name}",
@@ -1023,6 +1029,7 @@
sub _find_in_inc {
my $file = shift;
+ return unless defined $file;
foreach my $dir (grep !/\bBSDPAN\b/, @INC, @IncludeLibs) {
return "$dir/$file" if -f "$dir/$file";
Added: branches/upstream/libmodule-scandeps-perl/current/t/16-scan_line.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-scandeps-perl/current/t/16-scan_line.t?rev=44181&op=file
==============================================================================
--- branches/upstream/libmodule-scandeps-perl/current/t/16-scan_line.t (added)
+++ branches/upstream/libmodule-scandeps-perl/current/t/16-scan_line.t Thu Sep 17 13:17:04 2009
@@ -1,0 +1,34 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+use Module::ScanDeps qw/scan_line/;
+
+{
+my $chunk=<<'EOT';
+use strict;
+EOT
+my @array=sort (scan_line($chunk));
+is_deeply(\@array,[sort qw{strict.pm}]);
+}
+
+{
+my $chunk=<<'EOT';
+require 5.10;
+EOT
+my @array=sort (scan_line($chunk));
+is_deeply(\@array,[sort qw{feature.pm}]);
+}
+
+{# RT#48151
+my $chunk=<<'EOT';
+require __PACKAGE__ . "SomeExt.pm";
+EOT
+eval {
+ scan_line($chunk);
+};
+is($@,'');
+}
+
Added: branches/upstream/libmodule-scandeps-perl/current/t/17-private_methods.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-scandeps-perl/current/t/17-private_methods.t?rev=44181&op=file
==============================================================================
--- branches/upstream/libmodule-scandeps-perl/current/t/17-private_methods.t (added)
+++ branches/upstream/libmodule-scandeps-perl/current/t/17-private_methods.t Thu Sep 17 13:17:04 2009
@@ -1,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+use Module::ScanDeps ();
+
+{
+my @array=sort (@{Module::ScanDeps::_get_preload('Event.pm')});
+ok(grep {$_ eq 'Event/idle.pm'} @array) or diag(join(', ', at array));
+}
+
More information about the Pkg-perl-cvs-commits
mailing list