Changeset 1167 for 1.8.3/trunk/utils
- Timestamp:
- 12/28/07 19:57:17 (8 months ago)
- Files:
-
- 1.8.3/trunk/utils/mkvershlp.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
1.8.3/trunk/utils/mkvershlp.pl
r1032 r1167 3 3 # Generate game/txt/hlp/ files from the CHANGES file(s). 4 4 # Should be run by Makefile from top-level directory 5 # 6 # Requires the extra Sort::Versions module. Install through CPAN. 5 7 # 6 8 # Usage: mkvershlp game/txt/hlp CHANGES.176 CHANGES.OLD ... … … 13 15 use Text::Wrap; 14 16 17 BEGIN { 18 print "Rebuilding HELP CHANGES entries...\n"; 19 } 20 21 END { 22 print "Done.\n"; 23 } 24 15 25 my $targetdir = shift; 16 26 my @sources = @ARGV; 17 my $verspat = '^Version (\S+) patchlevel (\S+)';27 my $verspat = qr'^Version (\S+) patchlevel (\S+)'; 18 28 my %patchlevels; 19 29 … … 23 33 foreach my $file (@sources) { 24 34 next if $file =~ /~$/o; 25 warn "Can't open $file!\n", next unless open (IN,"<$file");35 warn "Can't open $file!\n", next unless open IN, "<", $file; 26 36 my $target = $file; 27 37 $target =~ s/.*\.(.*)/pennv$1.hlp/; 28 open(OUT,"> $targetdir/$target") or die "Unable to open $targetdir/$target\n";38 open(OUT,">","$targetdir/$target") or die "Unable to open $targetdir/$target\n"; 29 39 my $started = 0; 30 40 while (<IN>) {
