Fixed an off-by-one error. Changed the interpreter to /usr/bin/env perl.

This commit is contained in:
Roland Illig 2005-05-24 09:25:38 +00:00
parent d62c0470e3
commit ad5dcc1909
1 changed files with 3 additions and 2 deletions

View File

@ -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;
}