diff options
Diffstat (limited to 'util/mkerr.pl')
-rw-r--r-- | util/mkerr.pl | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/util/mkerr.pl b/util/mkerr.pl index 8109ab6df9..23e346a946 100644 --- a/util/mkerr.pl +++ b/util/mkerr.pl @@ -452,9 +452,17 @@ EOF # First, read any existing reason string definitions: my %err_reason_strings; if (open(IN,"<$cfile")) { + my $line = ""; while (<IN>) { - if (/\b(${lib}_R_\w*)\b.*\"(.*)\"/) { - $err_reason_strings{$1} = $2; + chomp; + $_ = $line . $_; + $line = ""; + if (/{ERR_REASON\(/) { + if (/\b(${lib}_R_\w*)\b.*\"(.*)\"/) { + $err_reason_strings{$1} = $2; + } else { + $line = $_; + } } } close(IN); |