[Templates-cvs] cvs commit: Template2/bin ttree
cvs@template-toolkit.org
cvs@template-toolkit.org
cvs 06/01/30 14:06:31
Modified: bin ttree
Log:
* fixed mkpath to have the correct arguments
Revision Changes Path
2.80 +4 -4 Template2/bin/ttree
Index: ttree
===================================================================
RCS file: /template-toolkit/Template2/bin/ttree,v
retrieving revision 2.79
retrieving revision 2.80
diff -u -r2.79 -r2.80
--- ttree 2006/01/30 13:37:26 2.79
+++ ttree 2006/01/30 14:06:30 2.80
@@ -23,7 +23,7 @@
#
#------------------------------------------------------------------------
#
-# $Id: ttree,v 2.79 2006/01/30 13:37:26 abw Exp $
+# $Id: ttree,v 2.80 2006/01/30 14:06:30 abw Exp $
#
#========================================================================
@@ -37,7 +37,7 @@
use Text::ParseWords qw(quotewords);
my $NAME = "ttree";
-my $VERSION = sprintf("%d.%02d", q$Revision: 2.79 $ =~ /(\d+)\.(\d+)/);
+my $VERSION = sprintf("%d.%02d", q$Revision: 2.80 $ =~ /(\d+)\.(\d+)/);
my $HOME = $ENV{ HOME } || '';
my $RCFILE = $ENV{"\U${NAME}rc"} || "$HOME/.${NAME}rc";
my $TTMODULE = 'Template';
@@ -262,8 +262,8 @@
# create target directory if required
$target = "$destdir/$path";
unless (-d $target || $dryrun) {
- mkpath $target, $mode or
- die "Could not mkpath ($target): $!\n";
+ mkpath($target, $verbose, $mode) or
+ die "Could not mkpath ($target): $!\n";
# commented out by abw on 2000/12/04 - seems to raise a warning?
# chown($uid, $gid, $target) || warn "chown($target): $!\n";