Select Code to Download

root@geedorah:~# perl foo.pl 
eval error - ''
lock says: 0 but true
unlock says: 0 but true

included by eval at (eval 1) line 2.
eval error - ''
lock says: UNDEFINED - Invalid argument
unlock says: 0 but true

#!/usr/bin/perl -w
use strict;
use Fcntl qw(:DEFAULT :seek);
...
                die "Cannot release lock I don't hold for $version!";
        }
}

Summary of my perl5 (revision 5 version 10 subversion 1) configuration
+:
   
...
    /usr/local/lib/site_perl
    .
root@geedorah:~#