Changeset 1123
- Timestamp:
- 10/05/07 20:06:19 (1 year ago)
- Files:
-
- 1.8.2/trunk/CHANGES.182 (modified) (1 diff)
- 1.8.2/trunk/utils/mkvershlp.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
1.8.2/trunk/CHANGES.182
r1114 r1123 13 13 14 14 ========================================================================== 15 16 Version 1.8.2 patchlevel 8 ??? ??, 200? 17 18 Minor changes: 19 * 'make versions' now provides some feedback. 20 15 21 16 22 Version 1.8.2 patchlevel 7 October 6, 2007 1.8.2/trunk/utils/mkvershlp.pl
r1027 r1123 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>) {
