r76241 - in /branches/upstream/libfind-lib-perl/current: Changes MANIFEST META.yml lib/Find/Lib.pm t/moretests/03-chdir-topbegin.t
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Tue Jun 21 18:06:57 UTC 2011
Author: carnil
Date: Tue Jun 21 18:06:54 2011
New Revision: 76241
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76241
Log:
[svn-upgrade] new version libfind-lib-perl (1.02)
Removed:
branches/upstream/libfind-lib-perl/current/t/moretests/03-chdir-topbegin.t
Modified:
branches/upstream/libfind-lib-perl/current/Changes
branches/upstream/libfind-lib-perl/current/MANIFEST
branches/upstream/libfind-lib-perl/current/META.yml
branches/upstream/libfind-lib-perl/current/lib/Find/Lib.pm
Modified: branches/upstream/libfind-lib-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfind-lib-perl/current/Changes?rev=76241&op=diff
==============================================================================
--- branches/upstream/libfind-lib-perl/current/Changes (original)
+++ branches/upstream/libfind-lib-perl/current/Changes Tue Jun 21 18:06:54 2011
@@ -1,4 +1,8 @@
Revision history for Find-Lib
+
+1.02 Mon Jun 20 22:00:00 PDT 2011
+ - Fix a portabality issue s/$ENV{PWD}/Cwd::cwd()/ RT#68967
+ Thanks to Tatsuhiko Miyagawa and Jesse Luehrs.
1.01 Tue Nov 10 12:30:00 PDT 2009
- Fix a problem with File::Spec::Functions use of Exporter
Modified: branches/upstream/libfind-lib-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfind-lib-perl/current/MANIFEST?rev=76241&op=diff
==============================================================================
--- branches/upstream/libfind-lib-perl/current/MANIFEST (original)
+++ branches/upstream/libfind-lib-perl/current/MANIFEST Tue Jun 21 18:06:54 2011
@@ -17,7 +17,6 @@
t/moretests/02-dollar0-begin.t
t/moretests/02-dollar0.t
t/moretests/03-chdir-begin.t
-t/moretests/03-chdir-topbegin.t
t/moretests/03-chdir.t
t/moretests/03-pwd-begin.t
t/moretests/04-symlinks.t
Modified: branches/upstream/libfind-lib-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfind-lib-perl/current/META.yml?rev=76241&op=diff
==============================================================================
--- branches/upstream/libfind-lib-perl/current/META.yml (original)
+++ branches/upstream/libfind-lib-perl/current/META.yml Tue Jun 21 18:06:54 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Find-Lib
-version: 1.01
+version: 1.02
abstract: Helper to smartly find libs to use in the filesystem tree
author:
- Yann Kerherve <yannk at cpan.org>
@@ -17,7 +17,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.54
+generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: branches/upstream/libfind-lib-perl/current/lib/Find/Lib.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfind-lib-perl/current/lib/Find/Lib.pm?rev=76241&op=diff
==============================================================================
--- branches/upstream/libfind-lib-perl/current/lib/Find/Lib.pm (original)
+++ branches/upstream/libfind-lib-perl/current/lib/Find/Lib.pm Tue Jun 21 18:06:54 2011
@@ -4,6 +4,7 @@
use lib;
use File::Spec();
+use Cwd;
use vars qw/$Base $VERSION @base/;
use vars qw/$Script/; # compat
@@ -17,7 +18,7 @@
=cut
-$VERSION = '1.01';
+$VERSION = '1.02';
=head1 SYNOPSIS
@@ -93,7 +94,7 @@
information the module relies on to interpret the relative path given by the
calling program.
-If one of cwd, $ENV{PWD} or $0 is changed before Find::Lib has a chance to do
+If one of cwd, or $0 is changed before Find::Lib has a chance to do
its job, then Find::Lib will most probably die, saying "The script cannot be
found". I don't know a workaround that. So be sure to load Find::Lib as soon
as possible in your script to minimize problems (you are in control!).
@@ -128,7 +129,7 @@
}
sub guess_shell_path {
- my ($volume, $path, $file) = File::Spec->splitpath( $ENV{PWD} );
+ my ($volume, $path, $file) = File::Spec->splitpath( Cwd::cwd() );
my @path = File::Spec->splitdir($path);
pop @path unless $path[-1];
@base = (@path, $file);
More information about the Pkg-perl-cvs-commits
mailing list