mirror of https://github.com/MidnightCommander/mc
Fixed an off-by-one error. Changed the interpreter to /usr/bin/env perl.
This commit is contained in:
parent
d62c0470e3
commit
ad5dcc1909
|
@ -1,4 +1,5 @@
|
|||
#!/usr/bin/perl -w
|
||||
#!/usr/bin/env perl
|
||||
use warnings;
|
||||
|
||||
# GNOME po update utility.
|
||||
# (C) 2000 The Free Software Foundation
|
||||
|
@ -87,7 +88,7 @@ if ($LANG=~/^-(.)*/){
|
|||
open FILE, "<$file";
|
||||
while (<FILE>) {
|
||||
if ($_=~/_\s*\(\"/o){
|
||||
$file = unpack("x3 A*",$file) . "\n";
|
||||
$file = unpack("x4 A*",$file) . "\n";
|
||||
push @buff1, $file;
|
||||
last;
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue