diff --git a/perl-Devel-Cycle-1.11-512.patch b/perl-Devel-Cycle-1.11-512.patch index 119f828..33046c9 100644 --- a/perl-Devel-Cycle-1.11-512.patch +++ b/perl-Devel-Cycle-1.11-512.patch @@ -9,7 +9,7 @@ index 19d3d63..2c5fdd1 100644 - 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'); ++ 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');