Package: libgetopt-euclid-perl
Version: 0.2.0-1
Severity: minor
Tags: patch
-------------------8<-------------------------8<------------------------
terce...@morere:~/tmp/perl$ cat sample
#!/usr/bin/perl
use Getopt::Euclid;
use Data::Dumper;
=pod
=head1 REQUIRED ARGUMENTS
=over
=item <file>
The input file
=for Euclid:
file.type: readable
=back
=cut
print Dumper(\%ARGV), "\n";
terce...@morere:~/tmp/perl$ ./sample
Variable "%STD_CONSTRAINT_FOR" will not stay shared at
/usr/share/perl5/Getopt/Euclid.pm line 208.
Missing required argument:
<file>
(Try: sample --help)
terce...@morere:~/tmp/perl$
-------------------8<-------------------------8<------------------------
This seems to be related to perl 5.10, and is already reported upstream, with a
patch available:
http://rt.cpan.org/Public/Bug/Display.html?id=37182
Follows attached the patch I reproduced locally.
Thanks,
-- System Information:
Debian Release: 5.0
APT prefers unstable
APT policy: (500, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 2.6.26-1-686 (SMP w/1 CPU core)
Locale: LANG=pt_BR.utf8, LC_CTYPE=pt_BR.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Versions of packages libgetopt-euclid-perl depends on:
ii perl 5.10.0-19 Larry Wall's Practical Extraction
ii perl-modules [libversion-perl 5.10.0-19 Core Perl modules
libgetopt-euclid-perl recommends no packages.
libgetopt-euclid-perl suggests no packages.
-- no debconf information
diff -Nru libgetopt-euclid-perl-0.2.0.from-archive/lib/Getopt/Euclid.pm libgetopt-euclid-perl-0.2.0/lib/Getopt/Euclid.pm
--- libgetopt-euclid-perl-0.2.0.from-archive/lib/Getopt/Euclid.pm 2009-01-11 19:10:14.000000000 -0300
+++ libgetopt-euclid-perl-0.2.0/lib/Getopt/Euclid.pm 2009-01-11 20:16:59.000000000 -0300
@@ -205,6 +205,7 @@
my %STD_CONSTRAINT_FOR;
BEGIN {
+ no warnings 'closure';
%STD_CONSTRAINT_FOR = (
'string' => sub { 1 }, # Always okay (matcher ensures this)
'integer' => sub { 1 }, # Always okay (matcher ensures this)
