Escape forward slashes in search pattern.

This commit is contained in:
Jordan K. Hubbard 1999-12-25 05:25:46 +00:00
parent 401c60e578
commit 9e6692f546
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=6267

View file

@ -4,7 +4,7 @@
# #
# usage: revcheck <build topdir> <relative to localtop> <SGML filename> # usage: revcheck <build topdir> <relative to localtop> <SGML filename>
# #
# $FreeBSD$ # $FreeBSD: www/ja/revcheck,v 1.1 1999/12/23 01:14:38 kuriyama Exp $
my $buildtop = $ARGV[0]; my $buildtop = $ARGV[0];
my $reldir = $ARGV[1]; my $reldir = $ARGV[1];
@ -26,7 +26,7 @@ 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: .* (.*) .* .* .* .* \$/) { if (/\$FreeBSD: www\/ja\/revcheck,v 1.1 1999\/12\/23 01:14:38 kuriyama Exp $/) {
$rev_en = $1; $rev_en = $1;
last; last;
} }