File Devel-Cycle-pm.patch of Package perl-Devel-Cycle

--- 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');