Blame Devel-Cycle-1.11-512.patch
|
Petr Šabata |
28f256f |
diff --git a/lib/Devel/Cycle.pm b/lib/Devel/Cycle.pm
|
|
Petr Šabata |
28f256f |
index 19d3d63..2c5fdd1 100644
|
|
Petr Šabata |
28f256f |
--- a/lib/Devel/Cycle.pm
|
|
Petr Šabata |
28f256f |
+++ b/lib/Devel/Cycle.pm
|
|
Petr Šabata |
28f256f |
@@ -215,7 +215,9 @@ sub _format_reference {
|
|
Petr Šabata |
28f256f |
sub _get_type {
|
|
Petr Šabata |
28f256f |
my $thingy = shift;
|
|
Petr Šabata |
28f256f |
return unless ref $thingy;
|
|
Petr Šabata |
28f256f |
- return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') || UNIVERSAL::isa($thingy,'REF');
|
|
Petr Šabata |
28f256f |
+ return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') ||
|
|
Petr Šabata |
28f256f |
+ UNIVERSAL::isa($thingy,'REF') ||
|
|
Petr Šabata |
7ad94c0 |
+ UNIVERSAL::isa($thingy,'Regexp');
|
|
Petr Šabata |
28f256f |
return 'ARRAY' if UNIVERSAL::isa($thingy,'ARRAY');
|
|
Petr Šabata |
28f256f |
return 'HASH' if UNIVERSAL::isa($thingy,'HASH');
|
|
Petr Šabata |
28f256f |
return 'CODE' if UNIVERSAL::isa($thingy,'CODE');
|