simplify arguments for mig-skip-iconv and mig-skip-clean

Signed-off-by: Jason Etheridge <jason@esilibrary.com>

diff --git a/mig-bin/mig-skip-clean b/mig-bin/mig-skip-clean
index 013c075..5b60cb1 100755 (executable)
--- a/mig-bin/mig-skip-clean
+++ b/mig-bin/mig-skip-clean
@@ -43,6 +43,8 @@ my $file = abs_path($ARGV[0]);
 my $clean_file;
 if ($ARGV[1]) {
     $clean_file = abs_path($ARGV[1]);
+} else {
+    $clean_file = $file;
 }
 if ($clean_file && ! $clean_file =~ /^$MIGBASEWORKDIR/) {
     die "File falls outside of MIGWORKDIR ($MIGWORKDIR): $clean_file\n";

diff --git a/mig-bin/mig-skip-iconv b/mig-bin/mig-skip-iconv
index 9a36123..fec558d 100755 (executable)
--- a/mig-bin/mig-skip-iconv
+++ b/mig-bin/mig-skip-iconv
@@ -40,6 +40,8 @@ my $file = abs_path($ARGV[0]);
 my $utf8_file;
 if ($ARGV[1]) {
     $utf8_file = abs_path($ARGV[1]);
+} else {
+    $utf8_file = $file;
 }
 if ($utf8_file && ! $utf8_file =~ /^$MIGBASEWORKDIR/) {
     die "File falls outside of MIGWORKDIR ($MIGWORKDIR): $utf8_file\n";