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