projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
import rt 3.8.10
[freeside.git]
/
rt
/
sbin
/
extract-message-catalog
diff --git
a/rt/sbin/extract-message-catalog
b/rt/sbin/extract-message-catalog
index
022b5b2
..
f6a7f85
100644
(file)
--- a/
rt/sbin/extract-message-catalog
+++ b/
rt/sbin/extract-message-catalog
@@
-120,7
+120,7
@@
sub extract_strings_from_code {
$filename =~ s'^\./'';
$filename =~ s'\.in$'';
$filename =~ s'^\./'';
$filename =~ s'\.in$'';
- unless (open _, $file) {
+ unless (open _,
'<',
$file) {
print "Cannot open $file for reading ($!), skipping.\n";
return;
}
print "Cannot open $file for reading ($!), skipping.\n";
return;
}
@@
-249,7
+249,7
@@
sub update {
print "Updating $lang...\n";
my @lines;
print "Updating $lang...\n";
my @lines;
- @lines = (<LEXICON>) if open
(LEXICON, $file)
;
+ @lines = (<LEXICON>) if open
LEXICON, '<', $file
;
@lines = grep { !/^(#(:|\.)\s*|$)/ } @lines;
while (@lines) {
my $msghdr = "";
@lines = grep { !/^(#(:|\.)\s*|$)/ } @lines;
while (@lines) {
my $msghdr = "";
@@
-343,7
+343,7
@@
sub update {
$out .= 'msgid ' . fmt($_) . "msgstr \"$Lexicon{$_}\"\n\n";
}
$out .= 'msgid ' . fmt($_) . "msgstr \"$Lexicon{$_}\"\n\n";
}
- open
PO, ">$file"
or die "Couldn't open '$file' for writing: $!";
+ open
( PO, '>', $file )
or die "Couldn't open '$file' for writing: $!";
print PO $out;
close PO;
print PO $out;
close PO;