tags 467279 + patch, pending, upstream
thanks

It seems Perl 5.10 is stricter when it comes to dereferencing
not-yet-existing globs - This patch (although in an ugly way) does the
trick:

--- libpod-webserver-perl-3.04.yours/t/01_about_verbose.t       2006-06-02 
22:10:45.000000000 -0500
+++ libpod-webserver-perl-3.04/t/01_about_verbose.t             2008-05-28 
10:45:36.000000000 -0500
@@ -43,8 +43,8 @@
     if(defined ${$this . '::VERSION'} ) {
       $v{$this} = ${$this . '::VERSION'}
     } elsif(
-       defined *{$this . '::ISA'} or defined &{$this . '::import'}
-       or ($this ne '' and grep defined *{$_}{'CODE'}, values %{$this . "::"})
+       eval{defined *{$this . '::ISA'}} or eval{defined &{$this . '::import'}}
+       or ($this ne '' and eval{grep defined *{$_}{'CODE'}, values %{$this . 
"::"}})
        # If it has an ISA, an import, or any subs...
     ) {
       # It's a class/module with no version.

I am forwarding this bug to the upstream bugtracker:

http://rt.cpan.org/Ticket/Display.html?id=36248

-- 
Gunnar Wolf - [EMAIL PROTECTED] - (+52-55)5623-0154 / 1451-2244
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF



-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to