r53014 - /trunk/dh-make-perl/lib/DhMakePerl.pm

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Thu Feb 18 06:02:30 UTC 2010


Author: dmn
Date: Thu Feb 18 06:01:13 2010
New Revision: 53014

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53014
Log:
write_source_format: use catpath for $vol + $dir

catdir clobbers ./ from $dir

gregoa++ for reporrting the failure

Modified:
    trunk/dh-make-perl/lib/DhMakePerl.pm

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=53014&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Thu Feb 18 06:01:13 2010
@@ -56,7 +56,7 @@
 use File::Copy qw( copy move );
 use File::Find qw( find );
 use File::Path ();
-use File::Spec::Functions qw( catdir catfile splitpath );
+use File::Spec::Functions qw( catdir catfile catpath splitpath );
 use IO::File                   ();
 use Module::CoreList           ();
 use Module::Depends::Intrusive ();
@@ -2057,7 +2057,7 @@
     my ( $self, $path ) = @_;
 
     my ( $vol, $dir, $file ) = splitpath($path);
-    $dir = catdir( $vol, $dir );
+    $dir = catpath( $vol, $dir );
 
     if ( $self->cfg->source_format eq '1.0' ) {
         # this is the default, remove debian/source




More information about the Pkg-perl-cvs-commits mailing list