Package: libdpkg-perl
Version: 1.16.10

A co-worker got the following error while building a package:

  dpkg-gencontrol: warning: File::FcntlLock not available; using flock which is 
not NFS-safe
  Undefined subroutine &main::_ called at /usr/share/perl5/Dpkg/File.pm line 41.

Apparently, in this situation the build was being done in a filesystem
where flock() fails to lock.  I believe libdpkg-perl was unable to
report the real error properly because it is translating the error
message using nonexistent subroutine "_".  I assume it should be using
"_g" instead:

--- a/scripts/Dpkg/File.pm
+++ b/scripts/Dpkg/File.pm
@@ -39,12 +39,12 @@ sub file_lock($$) {
     if ($@) {
         warning(_g("File::FcntlLock not available; using flock which is not 
NFS-safe"));
         flock($fh, LOCK_EX) ||
-            syserr(_("failed to get a write lock on %s"), $filename);
+            syserr(_g("failed to get a write lock on %s"), $filename);
     } else {
         eval q{
             my $fs = File::FcntlLock->new(l_type => F_WRLCK);
             $fs->lock($fh, F_SETLKW) ||
-                syserr(_("failed to get a write lock on %s"), $filename);
+                syserr(_g("failed to get a write lock on %s"), $filename);
         }
     }
 }


--
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org

Reply via email to