set @info marker for files created with makeinfo using german locale; ok espie@, jasper@ and ajacoutot@

This commit is contained in:
alek 2010-04-08 15:33:17 +00:00
parent 2687f46cad
commit 31256fa4de

View File

@ -1,4 +1,4 @@
# $OpenBSD: FS.pm,v 1.10 2009/10/27 15:48:52 ajacoutot Exp $ # $OpenBSD: FS.pm,v 1.11 2010/04/08 15:33:17 alek Exp $
# Copyright (c) 2008 Marc Espie <espie@openbsd.org> # Copyright (c) 2008 Marc Espie <espie@openbsd.org>
# #
# Permission to use, copy, modify, and distribute this software for any # Permission to use, copy, modify, and distribute this software for any
@ -157,7 +157,8 @@ sub is_info
return 0 unless defined $tag; return 0 unless defined $tag;
$tag .= <$fh>; $tag .= <$fh>;
close $fh; close $fh;
if ($tag =~ /^This\sis\s.*,\sproduced\sby\s[Mm]akeinfo(?:\sversion\s|\-)?.*[\d\s]from/s) { if ($tag =~ /^This\sis\s.*,\sproduced\sby\s[Mm]akeinfo(?:\sversion\s|\-)?.*[\d\s]from/s ||
$tag =~ /^Dies\sist\s.*,\shergestellt\svon\s[Mm]akeinfo(?:\sVersion\s|\-)?.*[\d\s]aus/s) {
return 1; return 1;
} else { } else {
return 0; return 0;