[ViewVC] Diff of: cvs/Devel-FindRef/FindRef.xs

Comparing Devel-FindRef/FindRef.xs (file contents):
Revision 1.13 by root, Sat Jul 19 01:38:57 2008 UTC vs.
Revision 1.14 by root, Mon Dec 1 13:22:43 2008 UTC

                   GvNAME (sv) ? GvNAME (sv) : "<anonymous>"))
 MODULE = Devel::FindRef		PACKAGE = Devel::FindRef
 PROTOTYPES: ENABLE
-SV *
-ptr2ref (UV ptr)
-	CODE:
-        RETVAL = newRV_inc (INT2PTR (SV *, ptr));
-	OUTPUT:
-        RETVAL
-UV
-ref2ptr (SV *rv)
-	CODE:
-        RETVAL = PTR2UV (SvRV (rv));
-	OUTPUT:
-        RETVAL
 void
 find_ (SV *target)
 	PPCODE:
 {
                             mg = mg->mg_moremagic;
                           }
                       }
                   }
-                if (SvROK (sv))
+                if (SvROK (sv) && !SvWEAKREF (sv))
                   {
                     if (sv != target && SvRV (sv) == targ && !SvWEAKREF (sv))
                       res_pair ("referenced by");
                   }
                 else
         EXTEND (SP, 2);
         PUSHs (sv_2mortal (newRV_noinc ((SV *)about)));
         PUSHs (sv_2mortal (newRV_noinc ((SV *)excl)));
 }
+SV *
+ptr2ref (UV ptr)
+	CODE:
+        RETVAL = newRV_inc (INT2PTR (SV *, ptr));
+	OUTPUT:
+        RETVAL
+UV
+ref2ptr (SV *rv)
+	CODE:
+        RETVAL = PTR2UV (SvRV (rv));
+	OUTPUT:
+        RETVAL
+U32
+_refcnt (SV *rv)
+	CODE:
+        RETVAL = SvREFCNT (SvRV (rv));
+	OUTPUT:
+        RETVAL

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines