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