imgtools/romtools/rombuild/romnibus.pl
changeset 41 1600211976c3
parent 40 68f68128601f
--- a/imgtools/romtools/rombuild/romnibus.pl	Thu Nov 25 13:59:07 2010 +0000
+++ b/imgtools/romtools/rombuild/romnibus.pl	Sat Nov 27 17:23:11 2010 +0000
@@ -564,7 +564,7 @@
 		print "\"rename rom.oby -> $obyname\" failed: $!\n";
 		exit 1;
 	}
-	if (system("$maksym $logname")) {
+	if (system("perl $maksym $logname")) {
 		print "\"maksym.pl $logname\" failed: $!\n";
 		exit 1;
 	}
@@ -628,8 +628,11 @@
 	my ($in, $out, $k) = @_;
 	my $lastblank;
 	my $lineno = 0;
-	my $epocroot_pattern = $on_windows ? $epocroot . '\\\\' : $epocroot;
-
+	my $epocroot_pattern = $epocroot;
+	if ($on_windows) {
+	   $epocroot_pattern .= '\\';
+	   $epocroot_pattern = ~ s/\\/\\\\/g;
+    }
 	open(OUTPUT_FILE, "> $out") or die "Cannot open $out for output";
 	open(INPUT_FILE, "< $in") or die "Cannot open for $in input";