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