r29898 - in /branches/upstream/libmodule-load-conditional-perl/current: CHANGES META.yml lib/Module/Load/Conditional.pm t/01_Module_Load_Conditional.t
rmayorga at users.alioth.debian.org
rmayorga at users.alioth.debian.org
Wed Jan 21 00:19:32 UTC 2009
Author: rmayorga
Date: Wed Jan 21 00:19:29 2009
New Revision: 29898
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29898
Log:
[svn-upgrade] Integrating new upstream version, libmodule-load-conditional-perl (0.30)
Modified:
branches/upstream/libmodule-load-conditional-perl/current/CHANGES
branches/upstream/libmodule-load-conditional-perl/current/META.yml
branches/upstream/libmodule-load-conditional-perl/current/lib/Module/Load/Conditional.pm
branches/upstream/libmodule-load-conditional-perl/current/t/01_Module_Load_Conditional.t
Modified: branches/upstream/libmodule-load-conditional-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-load-conditional-perl/current/CHANGES?rev=29898&op=diff
==============================================================================
--- branches/upstream/libmodule-load-conditional-perl/current/CHANGES (original)
+++ branches/upstream/libmodule-load-conditional-perl/current/CHANGES Wed Jan 21 00:19:29 2009
@@ -1,3 +1,11 @@
+Changes for 0.30 Mon Jan 19 16:25:55 CET 2009
+=================================================
+* This is a test-suite fix release only. Users of
+ 0.28 need not upgrade.
+* Address #42140: 01_Module_Load_Conditional.t support
+ VMS in UNIX compatible mode.
+* Address #42282: test fail on MSWin32
+
Changes for 0.28 Wed Dec 17 13:54:17 CET 2008
=================================================
* Add the directory the package was found in to the
Modified: branches/upstream/libmodule-load-conditional-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-load-conditional-perl/current/META.yml?rev=29898&op=diff
==============================================================================
--- branches/upstream/libmodule-load-conditional-perl/current/META.yml (original)
+++ branches/upstream/libmodule-load-conditional-perl/current/META.yml Wed Jan 21 00:19:29 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Module-Load-Conditional
-version: 0.28
+version: 0.30
abstract: Looking up module information / loading at runtime
author:
- Jos Boumans <kane[at]cpan.org>
Modified: branches/upstream/libmodule-load-conditional-perl/current/lib/Module/Load/Conditional.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-load-conditional-perl/current/lib/Module/Load/Conditional.pm?rev=29898&op=diff
==============================================================================
--- branches/upstream/libmodule-load-conditional-perl/current/lib/Module/Load/Conditional.pm (original)
+++ branches/upstream/libmodule-load-conditional-perl/current/lib/Module/Load/Conditional.pm Wed Jan 21 00:19:29 2009
@@ -18,7 +18,7 @@
$FIND_VERSION $ERROR $CHECK_INC_HASH];
use Exporter;
@ISA = qw[Exporter];
- $VERSION = '0.28';
+ $VERSION = '0.30';
$VERBOSE = 0;
$FIND_VERSION = 1;
$CHECK_INC_HASH = 0;
Modified: branches/upstream/libmodule-load-conditional-perl/current/t/01_Module_Load_Conditional.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-load-conditional-perl/current/t/01_Module_Load_Conditional.t?rev=29898&op=diff
==============================================================================
--- branches/upstream/libmodule-load-conditional-perl/current/t/01_Module_Load_Conditional.t (original)
+++ branches/upstream/libmodule-load-conditional-perl/current/t/01_Module_Load_Conditional.t Wed Jan 21 00:19:29 2009
@@ -48,8 +48,19 @@
q[ Found proper version] );
ok( $rv->{dir}, q[ Found directory information] );
- { my $dir_re = qr/^$rv->{dir}/i;
- like( $rv->{file}, $dir_re,
+ { my $dir = File::Spec->canonpath( $rv->{dir} );
+
+ ### special rules apply on VMS, as always...
+ if (ON_VMS) {
+ ### Need path syntax for VMS compares.
+ $dir = VMS::Filespec::pathify($dir);
+ ### Remove the trailing VMS specific directory delimiter
+ $dir =~ s/\]//;
+ }
+
+ ### quote for Win32 paths, use | to avoid slash confusion
+ my $dir_re = qr|^\Q$dir\E|i;
+ like( File::Spec->canonpath( $rv->{file} ), $dir_re,
q[ Dir subset of file path] );
}
More information about the Pkg-perl-cvs-commits
mailing list