From ad5dcc1909a9212581edc391c5a6a98023a2f999 Mon Sep 17 00:00:00 2001
From: Roland Illig <roland.illig@gmx.de>
Date: Tue, 24 May 2005 09:25:38 +0000
Subject: [PATCH] Fixed an off-by-one error. Changed the interpreter to
 /usr/bin/env perl.

---
 po/update.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/po/update.pl b/po/update.pl
index ccb6d7b42..a8220dfcd 100755
--- a/po/update.pl
+++ b/po/update.pl
@@ -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;
                 }