r27329 - /trunk/dh-make-perl/dh-make-perl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Thu Nov 27 08:34:23 UTC 2008
Author: dmn
Date: Thu Nov 27 08:34:19 2008
New Revision: 27329
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27329
Log:
use catdir instead of catpath when checking/creating homedir
Modified:
trunk/dh-make-perl/dh-make-perl
Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27329&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Thu Nov 27 08:34:19 2008
@@ -96,7 +96,7 @@
__PACKAGE__->mk_accessors(qw(cache homedir cache_file contents_dir contents_files ));
use Storable;
-use File::Spec::Functions qw( catfile catpath splitpath );
+use File::Spec::Functions qw( catfile catdir splitpath );
sub new
{
@@ -223,7 +223,7 @@
my ( $vol, $dir, $file ) = splitpath( $self->cache_file );
- $dir = catpath( $vol, $dir );
+ $dir = catdir( $vol, $dir );
unless ( -d $dir ) {
mkdir $dir
or die "Error creating directory '$dir': $!\n"
More information about the Pkg-perl-cvs-commits
mailing list