set @info marker for files created with makeinfo using german locale; ok espie@, jasper@ and ajacoutot@
This commit is contained in:
parent
2687f46cad
commit
31256fa4de
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user