r76243 - in /trunk/libfind-lib-perl: Changes MANIFEST META.yml debian/changelog 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:08:08 UTC 2011
Author: carnil
Date: Tue Jun 21 18:08:05 2011
New Revision: 76243
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76243
Log:
* Team upload.
* New upstream release
Removed:
trunk/libfind-lib-perl/t/moretests/03-chdir-topbegin.t
Modified:
trunk/libfind-lib-perl/Changes
trunk/libfind-lib-perl/MANIFEST
trunk/libfind-lib-perl/META.yml
trunk/libfind-lib-perl/debian/changelog
trunk/libfind-lib-perl/lib/Find/Lib.pm
Modified: trunk/libfind-lib-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfind-lib-perl/Changes?rev=76243&op=diff
==============================================================================
--- trunk/libfind-lib-perl/Changes (original)
+++ trunk/libfind-lib-perl/Changes Tue Jun 21 18:08:05 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: trunk/libfind-lib-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfind-lib-perl/MANIFEST?rev=76243&op=diff
==============================================================================
--- trunk/libfind-lib-perl/MANIFEST (original)
+++ trunk/libfind-lib-perl/MANIFEST Tue Jun 21 18:08:05 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: trunk/libfind-lib-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfind-lib-perl/META.yml?rev=76243&op=diff
==============================================================================
--- trunk/libfind-lib-perl/META.yml (original)
+++ trunk/libfind-lib-perl/META.yml Tue Jun 21 18:08:05 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: trunk/libfind-lib-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfind-lib-perl/debian/changelog?rev=76243&op=diff
==============================================================================
--- trunk/libfind-lib-perl/debian/changelog (original)
+++ trunk/libfind-lib-perl/debian/changelog Tue Jun 21 18:08:05 2011
@@ -1,3 +1,10 @@
+libfind-lib-perl (1.02-1) UNRELEASED; urgency=low
+
+ * Team upload.
+ * New upstream release
+
+ -- Salvatore Bonaccorso <carnil at debian.org> Tue, 21 Jun 2011 20:07:15 +0200
+
libfind-lib-perl (1.01-1) unstable; urgency=low
* New upstream release
Modified: trunk/libfind-lib-perl/lib/Find/Lib.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfind-lib-perl/lib/Find/Lib.pm?rev=76243&op=diff
==============================================================================
--- trunk/libfind-lib-perl/lib/Find/Lib.pm (original)
+++ trunk/libfind-lib-perl/lib/Find/Lib.pm Tue Jun 21 18:08:05 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