r39037 - in /trunk/libdevel-findref-perl: Changes FindRef.pm FindRef.xs META.yml debian/changelog

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Wed Jul  1 14:40:09 2009
New Revision: 39037

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39037
Log:
No release necessary - wait until the GV stuff is tested
* New upstream release
  + Add untested feature to allow possible anonymous GVs

Modified:
    trunk/libdevel-findref-perl/Changes
    trunk/libdevel-findref-perl/FindRef.pm
    trunk/libdevel-findref-perl/FindRef.xs
    trunk/libdevel-findref-perl/META.yml
    trunk/libdevel-findref-perl/debian/changelog

Modified: trunk/libdevel-findref-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-findref-perl/Changes?rev=39037&op=diff
==============================================================================
--- trunk/libdevel-findref-perl/Changes (original)
+++ trunk/libdevel-findref-perl/Changes Wed Jul  1 14:40:09 2009
@@ -3,6 +3,10 @@
 TODO: unwrap the save stack to find mortalised scalars (too version dependent).
 TODO: hash keys containing \x00 do not display properly.
 TODO: get the stack of non-running coroutines?
+
+1.42 Wed Jul  1 10:24:42 CEST 2009
+	- allow possible anonymous gv's without crashing in 5.10
+          (untested).
 
 1.41 Fri Jun 26 16:48:49 CEST 2009
 	- special-case immortal values (\undef etc.)

Modified: trunk/libdevel-findref-perl/FindRef.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-findref-perl/FindRef.pm?rev=39037&op=diff
==============================================================================
--- trunk/libdevel-findref-perl/FindRef.pm (original)
+++ trunk/libdevel-findref-perl/FindRef.pm Wed Jul  1 14:40:09 2009
@@ -7,7 +7,7 @@
 use Scalar::Util;
 
 BEGIN {
-   our $VERSION = '1.41';
+   our $VERSION = '1.42';
    XSLoader::load __PACKAGE__, $VERSION;
 }
 

Modified: trunk/libdevel-findref-perl/FindRef.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-findref-perl/FindRef.xs?rev=39037&op=diff
==============================================================================
--- trunk/libdevel-findref-perl/FindRef.xs (original)
+++ trunk/libdevel-findref-perl/FindRef.xs Wed Jul  1 14:40:09 2009
@@ -14,6 +14,11 @@
 
 #if !PERL_VERSION_ATLEAST (5,10,0)
 # define SvPAD_OUR(dummy) 0
+#endif
+
+/* pre-5.10 perls always succeed, with 5.10, we have to check first apparently */
+#ifndef GvNAME_HEK
+# define GvNAME_HEK(sv) 1
 #endif
 
 #define res_pair(text)						\
@@ -36,8 +41,8 @@
 #define res_gv(sigil)						\
   res_text (form ("in the global %c%s::%.*s", sigil,		\
                   HvNAME (GvSTASH (sv)),			\
-                  GvNAMELEN (sv),				\
-                  GvNAME (sv) ? GvNAME (sv) : "<anonymous>"))
+                  GvNAME_HEK (sv) ? GvNAMELEN (sv) : 11,	\
+                  GvNAME_HEK (sv) ? GvNAME    (sv) : "<anonymous>"))
 
 MODULE = Devel::FindRef		PACKAGE = Devel::FindRef		
 

Modified: trunk/libdevel-findref-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-findref-perl/META.yml?rev=39037&op=diff
==============================================================================
--- trunk/libdevel-findref-perl/META.yml (original)
+++ trunk/libdevel-findref-perl/META.yml Wed Jul  1 14:40:09 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Devel-FindRef
-version:            1.41
+version:            1.42
 abstract:           ~
 author:  []
 license:            unknown

Modified: trunk/libdevel-findref-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-findref-perl/debian/changelog?rev=39037&op=diff
==============================================================================
--- trunk/libdevel-findref-perl/debian/changelog (original)
+++ trunk/libdevel-findref-perl/debian/changelog Wed Jul  1 14:40:09 2009
@@ -1,3 +1,12 @@
+libdevel-findref-perl (1.42-1) UNRELEASED; urgency=low
+
+  No release necessary - wait until the GV stuff is tested
+
+  * New upstream release
+    + Add untested feature to allow possible anonymous GVs
+
+ -- Jonathan Yu <frequency at cpan.org>  Wed, 01 Jul 2009 06:25:52 -0400
+
 libdevel-findref-perl (1.41-1) unstable; urgency=low
 
   * New upstream release