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

1 files changed, 2 insertions, 2 deletions

diff --git a/renrot b/renrot
index b9bbd08..6aa9208 100755
--- a/renrot
+++ b/renrot
@@ -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);