You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
668 B
16 lines
668 B
13 years ago
|
diff --git a/lib/Devel/Cycle.pm b/lib/Devel/Cycle.pm
|
||
|
|
index 19d3d63..2c5fdd1 100644
|
||
|
|
--- a/lib/Devel/Cycle.pm
|
||
|
|
+++ b/lib/Devel/Cycle.pm
|
||
|
|
@@ -215,7 +215,9 @@ sub _format_reference {
|
||
|
|
sub _get_type {
|
||
|
|
my $thingy = shift;
|
||
|
|
return unless ref $thingy;
|
||
|
|
- return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') || UNIVERSAL::isa($thingy,'REF');
|
||
|
|
+ return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') ||
|
||
|
|
+ UNIVERSAL::isa($thingy,'REF') ||
|
||
|
13 years ago
|
+ UNIVERSAL::isa($thingy,'Regexp');
|
||
|
13 years ago
|
return 'ARRAY' if UNIVERSAL::isa($thingy,'ARRAY');
|
||
|
|
return 'HASH' if UNIVERSAL::isa($thingy,'HASH');
|
||
|
|
return 'CODE' if UNIVERSAL::isa($thingy,'CODE');
|