[Scummvm-git-logs] scummvm master -> d5b41219798a1b128c138eb68ad263b170ff368a

[sev-]

This automated email contains information about 1 new commit which have been
pushed to the 'scummvm' repo located at https://github.com/scummvm/scummvm .

Summary:
d5b4121979 DEVTOOLS: Check the output directory for existence and improve debug output


Commit: d5b41219798a1b128c138eb68ad263b170ff368a
    https://github.com/scummvm/scummvm/commit/d5b41219798a1b128c138eb68ad263b170ff368a
Author: Eugene Sandulenko (sev at scummvm.org)
Date: 2021-07-31T10:56:50+02:00

Commit Message:
DEVTOOLS: Check the output directory for existence and improve debug output

Changed paths:
    devtools/dumper-companion.pl


diff --git a/devtools/dumper-companion.pl b/devtools/dumper-companion.pl
index 6323589295..e20f3a5040 100755
--- a/devtools/dumper-companion.pl
+++ b/devtools/dumper-companion.pl
@@ -73,6 +73,10 @@ if ($::opt_o) {
 	if ($outPath !~ m'/$') {
 		$outPath .= "/";
 	}
+
+	if (not -d $outPath) {
+		die "Directory $outPath does not exits";
+	}
 }
 
 if ($::opt_m) {
@@ -127,6 +131,7 @@ sub processIso($) {
 
 				if ($changed) {
 					print " " x $prevlen unless $verbose;
+					$dir1 =~ s/([\x00-\x1f])/@{[sprintf "\\x%02x", ord($1)]}/g;
 					print "\rRenamed dir \"$dir1\" -> \"$dir\"\n" unless $verbose;
 					$numrens++;
 				}
@@ -154,6 +159,7 @@ sub processIso($) {
 					$decfname = encode_punycodefilename	$decfname;
 					if ($decfname1 ne $decfname) {
 						print " " x $prevlen unless $verbose;
+						$decfname1 =~ s/([\x00-\x1f])/@{[sprintf "\\x%02x", ord($1)]}/g;
 						print "\rRenamed file \"$decfname1\" -> \"$decfname\"\n" unless $verbose;
 						$numrens++;
 					}
@@ -221,6 +227,7 @@ sub processMacbinary() {
 				if ($fname1 ne $fname) {
 					system1("mv \"$fname\" \"$fname1\"");
 
+					$fname =~ s/([\x00-\x1f])/@{[sprintf "\\x%02x", ord($1)]}/g;
 					print "Renamed \"$fname\" -> \"$fname1\"\n" unless $verbose;
 					$countren++;
 				}