Sisyphus repository
Last update: 1 october 2023 | SRPMs: 18631 | Visits: 37747456
en ru br
ALT Linux repos
S:1.46-alt1.1

Group :: Development/Perl
RPM: perl-Devel-FindRef

 Main   Changelog   Spec   Patches   Sources   Download   Gear   Bugs and FR  Repocop 

Patch: Devel-FindRef-fix.patch
Download


diff -up Devel-FindRef-1.422/FindRef.xs.orig Devel-FindRef-1.422/FindRef.xs
--- Devel-FindRef-1.422/FindRef.xs.orig 2009-08-30 16:33:01.000000000 +0200
+++ Devel-FindRef-1.422/FindRef.xs      2012-02-01 10:17:35.698276247 +0100
@@ -214,7 +214,7 @@ find_ (SV *target_ref)
                                 if (GvSV (sv) == (SV *)targ) res_gv ('$');
                                 if (GvAV (sv) == (AV *)targ) res_gv ('@');
                                 if (GvHV (sv) == (HV *)targ) res_gv ('%');
-                                if (GvCV (sv) == (CV *)targ) res_gv ('&');
+                                if (GvCVu(sv) == (CV *)targ) res_gv ('&');
                               }
                             break;
 
design & coding: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
current maintainer: Michael Shigorin