aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Shevchenko <andy@smile.org.ua>2012-07-29 08:47:28 +0000
committerAndy Shevchenko <andy@smile.org.ua>2012-07-29 08:47:28 +0000
commitd7282126855b13df51fab62b97f50678cbfd4d41 (patch)
treea6714f1d6fb586482f743b589d311bb02ce252ee
parent204a0243ad080eb6432f3ff36d2137ba9006169b (diff)
downloadrenrot-d7282126855b13df51fab62b97f50678cbfd4d41.tar.gz
renrot-d7282126855b13df51fab62b97f50678cbfd4d41.tar.bz2
aggr: use File::Basename to get base name of the file
Signed-off-by: Andy Shevchenko <andy.shevchenko@gmail.com> git-svn-id: file:///svnroot/renrot/trunk@617 fe2816f4-e837-0410-b10a-f608c9d244a1
-rwxr-xr-xrenrot3
1 files changed, 2 insertions, 1 deletions
diff --git a/renrot b/renrot
index 0b25b4c..8d4c599 100755
--- a/renrot
+++ b/renrot
@@ -16,6 +16,7 @@ use Pod::Usage;
use Image::ExifTool;
use Getopt::Long;
use File::Spec;
+use File::Basename;
# add our 'lib' directory to the include list
my $exeDir;
@@ -1378,7 +1379,7 @@ sub normalize_color {
sub aggregateFile {
my $file = shift;
my $new_dir = shift;
- my $base_name = (File::Spec->splitpath($file))[2];
+ my $base_name = basename($file);
makedir($new_dir);

Return to:

Send suggestions and report system problems to the System administrator.