fcntl(HANDLE, F_GETLK,&fl) with perl

[Bill Allombert <allomber@math.u-bordeaux.fr>]

Hello Debian-devel,

I try to code the following in perl

  struct flock fl;
  if (fcntl(fd,F_GETLK,&fl) == -1)

to query the dpkg lock.

I have tried the above 

fcntl DPKG_LOCKFILE,F_GETLK, \%fl;

but it does not seems to work. In fact the documentation
is unclear whether a struct flock can be passed at all
(some form of fcntl use a long arg instead).

Any idea ? [please CC me]

Cheers,
-- 
Bill. <ballombe@debian.org>

Imagine a large red swirl here.