art-helpers

commit 9d83562e956ffaa5aa96aa838e56c91d8591d92b
parent 22efbb727194eb9068a17bb1255f11b1a0c4c2d3
Author: guzzisti <apollo@rw-net.dew>
Date:   Sat, 28 Sep 2019 13:09:28 +0200

fix wrong function name & update README.md

Diffstat:
M
README.md
 | 
7
+++++--
M
orphaned_sidecar_cleaner.pl
 | 
3
+--

2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/README.md b/README.md
@@ -3,6 +3,7 @@ This rather small scripts written in [Perl](https://perl.org) provide useful fun
 
 ## required perl modules
 The following perl modules are required for running the scripts.
+
 - Cwd
 - File::Spec
 - File::Basename
@@ -13,4 +14,7 @@ The following perl modules are required for running the scripts.
 ## description
 
 ## orphaned sidecar cleaner
-Deletes all sidecar files in the given directory or alternatively in the current working directory when the associated raw file is missing.
-\ No newline at end of file
+Deletes all sidecar files in the given directory or alternatively in the current working directory when the associated raw file is missing.
+
+## multiversion sidecar cleaner
+Deletes Silkypix Sidecar files when newer versions of the files are available. This usually happens when a file is opened in a newer version of Silkypix, as the sidecar files are version specific.
diff --git a/orphaned_sidecar_cleaner.pl b/orphaned_sidecar_cleaner.pl
@@ -6,7 +6,6 @@
 use warnings;
 use strict;
 use Cwd;
-use File::Spec;
 use File::Basename;
 use File::Find::Rule;
 use File::Find;
@@ -66,7 +65,7 @@ sub main
 	print "Found $delcounter orphaned sidecar files found.\r\n";
 }
 
-sub get_raw_filename
+sub exists_raw_filename
 {
 	my ( $original_file ) = @_;