foreach $file ( @FILES ) {
chop($file);
if ( $file =~ m/\.1\.body$/ ) {
- $file =~ s/\.body$//; # strip off the ".node"
+ $file =~ s/\.body$//; # strip off the ".body"
$command = "./AssemTris/assemtris $subdir/$file";
print "Running '$command'\n";
}
close(OUT);
}
+ unlink("$subdir/$file.body");
}
}
#---------------------------------------------------------------------------
# $Log$
+# Revision 1.9 1998/01/27 18:36:54 curt
+# Lots of updates to get back in sync with changes made over in .../Src/
+#
# Revision 1.8 1998/01/21 17:59:05 curt
# Uncomment lines to remove several intermediate files.
#