4d81668cf7
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Devel-Cycle?expand=0&rev=4
12 lines
586 B
Diff
12 lines
586 B
Diff
--- lib/Devel/Cycle.old 2009-08-24 08:54:45.000000000 -0400
|
|
+++ lib/Devel/Cycle.pm 2010-04-16 20:53:30.000000000 -0400
|
|
@@ -215,7 +215,7 @@
|
|
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') || UNIVERSAL::isa($thingy,'Regexp');
|
|
return 'ARRAY' if UNIVERSAL::isa($thingy,'ARRAY');
|
|
return 'HASH' if UNIVERSAL::isa($thingy,'HASH');
|
|
return 'CODE' if UNIVERSAL::isa($thingy,'CODE');
|