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