[Bps-public-commit] r12917 - Module-Versions-Report/lib/Module/Versions

[ruz at bestpractical.com]

Author: ruz
Date: Thu Jun  5 10:57:38 2008
New Revision: 12917

Modified:
   Module-Versions-Report/lib/Module/Versions/Report.pm

Log:
* fix compatibility with 5.10

Modified: Module-Versions-Report/lib/Module/Versions/Report.pm
==============================================================================
--- Module-Versions-Report/lib/Module/Versions/Report.pm	(original)
+++ Module-Versions-Report/lib/Module/Versions/Report.pm	Thu Jun  5 10:57:38 2008
@@ -127,7 +127,8 @@
       $count++;
     } elsif(
        defined *{$this . '::ISA'} or defined &{$this . '::import'}
-       or ($this ne '' and grep defined *{$_}{'CODE'}, values %{$this . "::"})
+       or ($this ne '' and grep { ref $_ eq 'GLOB' and defined *{$_}{'CODE'} }
+                           values %{$this . "::"})
        # If it has an ISA, an import, or any subs...
     ) {
       # It's a class/module with no version.