Bug#511539: libgetopt-euclid-perl: annoying warning when loading

[Antonio Terceiro]

Package: libgetopt-euclid-perl
Version: 0.2.0-1
Severity: minor
Tags: patch

-------------------8<-------------------------8<------------------------
terceiro at 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";
terceiro at 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)

terceiro at 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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: libgetopt-euclid-perl-remove-warning.patch
Type: text/x-diff
Size: 593 bytes
Desc: not available
Url : http://lists.alioth.debian.org/pipermail/pkg-perl-maintainers/attachments/20090111/6d33e2f1/attachment.patch