imgtools/romtools/rombuild/romnibus.pl
changeset 40 68f68128601f
parent 39 fa9d7d89d3d6
child 41 1600211976c3
--- a/imgtools/romtools/rombuild/romnibus.pl	Mon Nov 15 10:57:53 2010 +0000
+++ b/imgtools/romtools/rombuild/romnibus.pl	Thu Nov 25 13:59:07 2010 +0000
@@ -549,15 +549,33 @@
 	system("zip $zipname $romname");
 }
 if ($opts{symbol}) {
+	my $maksym = File::Spec->catfile($toolpath,"maksym.pl");
 	my $logname=$romname;
 	$logname =~ s/\.(\w+)$/\.log/i;
 	my $obyname=$romname;
 	$obyname =~ s/\.(\w+)$/\.oby/i;
 	unlink $logname;
 	unlink $obyname;
-	system("rename rombuild.log $logname");
-	system("rename rom.oby $obyname");
-	system("maksym $logname");
+	unless (rename("ROMBUILD.LOG",$logname)) {
+		print "\"rename ROMBUILD.LOG -> $logname\" failed: $!\n";
+		exit 1;
+	}
+	unless (rename("rom.oby",$obyname)) {
+		print "\"rename rom.oby -> $obyname\" failed: $!\n";
+		exit 1;
+	}
+	if (system("$maksym $logname")) {
+		print "\"maksym.pl $logname\" failed: $!\n";
+		exit 1;
+	}
+	unless (rename($logname,"ROMBUILD.LOG")) {
+		print "\"rename $logname -> ROMBUILD.LOG\" failed: $!\n";
+		exit 1;
+	}
+	unless (rename($obyname,"rom.oby")) {
+		print "rename $obyname -\. rom.oby\" failed: $!\n";
+		exit 1;
+	}
 }
 
 #IMK if ($nerrors || $nwarnings || $rerrors) {