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

[ruz at bestpractical.com]

Author: ruz
Date: Thu Jun 12 11:20:45 2008
New Revision: 13205

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

Log:
* do additional check on 5.10 only as on 5.8.8 it can result
  in some wierd behavior.

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 12 11:20:45 2008
@@ -127,7 +127,7 @@
       $count++;
     } elsif(
        defined *{$this . '::ISA'} or defined &{$this . '::import'}
-       or ($this ne '' and grep { ref $_ eq 'GLOB' and defined *{$_}{'CODE'} }
+       or ($this ne '' and grep { ($] < 5.010 or ref $_ eq 'GLOB') and defined *{$_}{'CODE'} }
                            values %{$this . "::"})
        # If it has an ISA, an import, or any subs...
     ) {