Signed-off-by: Jason Etheridge <jason@esilibrary.com>
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";
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";