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

[migration-tools.git] / mig-bin / mig-skip-clean

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";