diff options
author | Andy Shevchenko <andy@smile.org.ua> | 2012-07-29 08:47:28 +0000 |
---|---|---|
committer | Andy Shevchenko <andy@smile.org.ua> | 2012-07-29 08:47:28 +0000 |
commit | d7282126855b13df51fab62b97f50678cbfd4d41 (patch) | |
tree | a6714f1d6fb586482f743b589d311bb02ce252ee | |
parent | 204a0243ad080eb6432f3ff36d2137ba9006169b (diff) | |
download | renrot-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-x | renrot | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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); |