--- Devel-FindRef/FindRef.xs	2008/07/11 17:59:19	1.11
+++ Devel-FindRef/FindRef.xs	2008/07/19 01:17:12	1.12
@@ -44,12 +44,19 @@
 PROTOTYPES: ENABLE
 
 SV *
-ptr2ref (IV ptr)
+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: