# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
-# Copyright (C) 2001-2007 Craig Barratt
+# Copyright (C) 2001-2009 Craig Barratt
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
#
#========================================================================
#
-# Version 3.2.0, released 31 Dec 2008.
+# Version 3.2.0, released 31 Jul 2010.
#
# See http://backuppc.sourceforge.net.
#
#
unlink($fileName) if ( -f $fileName );
if ( $fileName =~ m{(.*)/.+} && !-d $1 ) {
- eval { mkpath($1, 0, 0777) };
+ my $newDir = $1;
+ eval { mkpath($newDir, 0, 0777) };
if ( $@ ) {
- push(@{$self->{errors}}, "Unable to create directory $1 for $self->{fileName}");
+ push(@{$self->{errors}}, "Unable to create directory $newDir for $self->{fileName}");
}
}
return $self;