AfflictionNetworks/narya
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

No need to slurp the idstr unless we're actually going to update the

Browse Source 
generated file.


git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@1634 542714f4-19e9-0310-aa3c-eee0fc999fb1
This commit is contained in:
Michael Bayne
2002-08-09 03:35:47 +00:00
parent 78f48f2add
commit 86a0e96b83
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/gendobj
+9 -9
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# $Id: gendobj,v 1.13 2002/06/06 07:18:10 mdb Exp $ # $Id: gendobj,v 1.14 2002/08/09 03:35:47 mdb Exp $
# #
# gendobj is used to generate DObject source file definitons basded on # gendobj is used to generate DObject source file definitons basded on
# abbreviated declarations. Because DObject fields all have standard # abbreviated declarations. Because DObject fields all have standard
@@ -31,6 +31,14 @@ while ($source = shift) {
next; next;
} }
# if the destination file is newer than the source file, do nothing
my $dmtime = (stat($dest))[9];
my $smtime = (stat($source))[9];
if (!$force && (defined $dmtime) && ($dmtime > $smtime)) {
warn "Skipping $source as source is newer.\n" if ($verbose);
next;
}
# if the destination file already exists, slurp the existing CVS Id # if the destination file already exists, slurp the existing CVS Id
# information out of it so that we can slip that into the new one # information out of it so that we can slip that into the new one
my $idstr; my $idstr;
@@ -43,14 +51,6 @@ while ($source = shift) {
close(IN); close(IN);
} }
# if the destination file is newer than the source file, do nothing
my $dmtime = (stat($dest))[9];
my $smtime = (stat($source))[9];
if (!$force && (defined $dmtime) && ($dmtime > $smtime)) {
warn "Skipping $source as source is newer.\n" if ($verbose);
next;
}
if (!open(IN, "$source")) { if (!open(IN, "$source")) {
warn "Unable to open $source for reading: $!\n"; warn "Unable to open $source for reading: $!\n";
next; next;