os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

My previous commit was essentially a null-commit since cvs just turned

Browse source 
around and smashed the fix again, something I noticed immediately
thereafter.  The submitter heroically leaped forward with a fix after
I confessed insufficient ability with perl to make the match regexp work
correctly myself. :)

Submitted by:	Adruin "Adrian" Chadd <adrian@freebsd.org>
This commit is contained in:
Jordan K. Hubbard 1999-12-25 07:03:37 +00:00
parent 9e6692f546
commit 7cfba98675
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=6268
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ja/revcheck
View file

@ -4,15 +4,15 @@
# #
# usage: revcheck <build topdir> <relative to localtop> <SGML filename> # usage: revcheck <build topdir> <relative to localtop> <SGML filename>
# #
# $FreeBSD: www/ja/revcheck,v 1.1 1999/12/23 01:14:38 kuriyama Exp $ # $FreeBSD: www/ja/revcheck,v 1.2 1999/12/25 05:25:46 jkh Exp $
my $buildtop = $ARGV[0]; my $buildtop = $ARGV[0];
my $reldir = $ARGV[1]; my $reldir = $ARGV[1];
my $name_ja = $ARGV[2]; my $name_ja = $ARGV[2];
my $dir_en = $buildtop . "/en/" . $reldir; my $dir_en = $buildtop . "/en/" . $reldir;
my $name_en = $dir_en . "/" . $name_ja; my $name_en = $dir_en . "/" . $name_ja;
my $rev_en; my $rev_en = 'English Revision Not found';
my $rev_ja; my $rev_ja = 'Japanese Revision Not found';
my $basename = $name_ja; my $basename = $name_ja;
$basename =~ s/\.sgml//; $basename =~ s/\.sgml//;
@ -26,8 +26,8 @@ die "Cannot read English file: $!\n"
### Open English file. ### Open English file.
open EN, $name_en or die "Cannot open English file: $!\n"; open EN, $name_en or die "Cannot open English file: $!\n";
while (<EN>) { while (<EN>) {
if (/\$FreeBSD: www\/ja\/revcheck,v 1.1 1999\/12\/23 01:14:38 kuriyama Exp $/) { if (m@\044FreeBSD: (.+?) (.+?) .*$@) {
$rev_en = $1; $rev_en = $2;
last; last;
} }
} }