diff options
author | Andy Shevchenko <andy@smile.org.ua> | 2012-03-24 18:11:48 +0000 |
---|---|---|
committer | Andy Shevchenko <andy@smile.org.ua> | 2012-03-24 18:11:48 +0000 |
commit | 9f7b7c3cc9ea8ed396d79cfa084d76ada60b5773 (patch) | |
tree | 306655068d46e0beb00baa8cffa7c0bd79a292df | |
parent | 70b858394a62abb030d2498c14a4e45e43fb2fae (diff) | |
download | renrot-9f7b7c3cc9ea8ed396d79cfa084d76ada60b5773.tar.gz renrot-9f7b7c3cc9ea8ed396d79cfa084d76ada60b5773.tar.bz2 |
avoid dummy variables
Signed-off-by: Andy Shevchenko <andy.shevchenko@gmail.com>
git-svn-id: file:///svnroot/renrot/trunk@598 fe2816f4-e837-0410-b10a-f608c9d244a1
-rwxr-xr-x | renrot | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -590,7 +590,7 @@ sub getOptions { # preparing Software tag according the usage or not of ImageMagick if ($isThereIM == 1) { - my ($imName, $imVersion, $dummy) = split(/ /, Image::Magick->new()->Get('version')); + my ($imName, $imVersion) = (split(/ /, Image::Magick->new()->Get('version')))[0,1]; $tags{'Software'}{'value'} = sprintf("RenRot v%s (r%s), ExifTool v%s, %s v%s", $VERSION, $REVISION, $Image::ExifTool::VERSION, $imName, $imVersion); } else { $tags{'Software'}{'value'} = sprintf("ExifTool v%s, RenRot v%s (r%s)", $Image::ExifTool::VERSION, $VERSION, $REVISION); @@ -1677,7 +1677,7 @@ sub makeDir { sub aggregateFile { my $file = shift; my $new_dir = shift; - my ($dummy_volume, $dummy_dir, $base_name) = File::Spec->splitpath($file); + my $base_name = (File::Spec->splitpath($file))[2]; makeDir($new_dir); |