r39033 - in /branches/upstream/libdevel-findref-perl/current: Changes FindRef.pm FindRef.xs META.yml

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

Author: jawnsy-guest
Date: Wed Jul  1 14:23:11 2009
New Revision: 39033

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39033
Log:
[svn-upgrade] Integrating new upstream version, libdevel-findref-perl (1.42)

Modified:
    branches/upstream/libdevel-findref-perl/current/Changes
    branches/upstream/libdevel-findref-perl/current/FindRef.pm
    branches/upstream/libdevel-findref-perl/current/FindRef.xs
    branches/upstream/libdevel-findref-perl/current/META.yml

Modified: branches/upstream/libdevel-findref-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-findref-perl/current/Changes?rev=39033&op=diff
==============================================================================
--- branches/upstream/libdevel-findref-perl/current/Changes (original)
+++ branches/upstream/libdevel-findref-perl/current/Changes Wed Jul  1 14:23:11 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: branches/upstream/libdevel-findref-perl/current/FindRef.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-findref-perl/current/FindRef.pm?rev=39033&op=diff
==============================================================================
--- branches/upstream/libdevel-findref-perl/current/FindRef.pm (original)
+++ branches/upstream/libdevel-findref-perl/current/FindRef.pm Wed Jul  1 14:23:11 2009
@@ -7,7 +7,7 @@
 use Scalar::Util;
 
 BEGIN {
-   our $VERSION = '1.41';
+   our $VERSION = '1.42';
    XSLoader::load __PACKAGE__, $VERSION;
 }
 

Modified: branches/upstream/libdevel-findref-perl/current/FindRef.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-findref-perl/current/FindRef.xs?rev=39033&op=diff
==============================================================================
--- branches/upstream/libdevel-findref-perl/current/FindRef.xs (original)
+++ branches/upstream/libdevel-findref-perl/current/FindRef.xs Wed Jul  1 14:23:11 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: branches/upstream/libdevel-findref-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-findref-perl/current/META.yml?rev=39033&op=diff
==============================================================================
--- branches/upstream/libdevel-findref-perl/current/META.yml (original)
+++ branches/upstream/libdevel-findref-perl/current/META.yml Wed Jul  1 14:23:11 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Devel-FindRef
-version:            1.41
+version:            1.42
 abstract:           ~
 author:  []
 license:            unknown