Changeset 3027 for trunk/gsdl
- Timestamp:
- 2002-03-01T15:41:16+13:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/create_distributions.pl
r2887 r3027 760 760 761 761 # edit fnord.cpp 762 my $fnord_file = &util::filename_cat ($tmpdir, "gsdl", "src", "w32server", "fnord.cpp");763 open (FNORD, $fnord_file) || die;764 $found = 0; $line = ""; $file = "";765 while (defined ($line = <FNORD>)) {766 if ($line =~ s/(\#define VERSIONSTRING \"version )x\.xx(\")/$1$version_num$2/) {767 $found ++;768 }769 $file .= $line;770 }771 close FNORD;772 if (!$found) {773 die "error while editing $fnord_file\n";774 }775 776 open (FNORD, ">$fnord_file") || die;777 print FNORD $file;778 close FNORD;762 # my $fnord_file = &util::filename_cat ($tmpdir, "gsdl", "src", "w32server", "fnord.cpp"); 763 # open (FNORD, $fnord_file) || die; 764 # $found = 0; $line = ""; $file = ""; 765 # while (defined ($line = <FNORD>)) { 766 # if ($line =~ s/(\#define VERSIONSTRING \"version )x\.xx(\")/$1$version_num$2/) { 767 # $found ++; 768 # } 769 # $file .= $line; 770 # } 771 # close FNORD; 772 # if (!$found) { 773 # die "error while editing $fnord_file\n"; 774 # } 775 776 # open (FNORD, ">$fnord_file") || die; 777 # print FNORD $file; 778 # close FNORD; 779 779 } 780 780
Note:
See TracChangeset
for help on using the changeset viewer.