r27329 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

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"