r62420 - in /trunk/libsub-name-perl: Changes MANIFEST MANIFEST.SKIP META.yml Name.xs debian/changelog debian/control debian/copyright debian/rules debian/source/ debian/source/format lib/Sub/Name.pm t/RT42725_deparse.t

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Wed Sep 8 16:49:40 UTC 2010


Author: ansgar-guest
Date: Wed Sep  8 16:49:22 2010
New Revision: 62420

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62420
Log:
* New upstream release.
* Use tiny debian/rules.
* Use source format 3.0 (quilt).
* Convert debian/copyright to proposed machine-readable format.
* Bump Standards-Version to 3.9.1.

Added:
    trunk/libsub-name-perl/MANIFEST.SKIP
      - copied unchanged from r62412, branches/upstream/libsub-name-perl/current/MANIFEST.SKIP
    trunk/libsub-name-perl/debian/source/
    trunk/libsub-name-perl/debian/source/format
    trunk/libsub-name-perl/t/RT42725_deparse.t
      - copied unchanged from r62412, branches/upstream/libsub-name-perl/current/t/RT42725_deparse.t
Modified:
    trunk/libsub-name-perl/Changes
    trunk/libsub-name-perl/MANIFEST
    trunk/libsub-name-perl/META.yml
    trunk/libsub-name-perl/Name.xs
    trunk/libsub-name-perl/debian/changelog
    trunk/libsub-name-perl/debian/control
    trunk/libsub-name-perl/debian/copyright
    trunk/libsub-name-perl/debian/rules
    trunk/libsub-name-perl/lib/Sub/Name.pm

Modified: trunk/libsub-name-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsub-name-perl/Changes?rev=62420&op=diff
==============================================================================
--- trunk/libsub-name-perl/Changes (original)
+++ trunk/libsub-name-perl/Changes Wed Sep  8 16:49:22 2010
@@ -1,3 +1,11 @@
+0.05 -- Wed Sep  8 00:51 CEST 2010
+    * Stop using the padlist to refcount GVs. Instead use regular magic. This
+      allows various modules, including B::Deparse, to safely peek into pads of
+      (re)named subs (Closes RT#42725) (Goro Fuji).
+    * Support perl >= 5.13.3 by using the new CvGV_set interface there
+      (Closes RT#59558).
+    * Stop using the deprecated PL_no_symref (Closes RT#57843).
+
 0.04 -- Fri Jul 18 15:23 CEST 2008
     * Fixed for perl 5.6 and 5.005 threads (tested)
 

Modified: trunk/libsub-name-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsub-name-perl/MANIFEST?rev=62420&op=diff
==============================================================================
--- trunk/libsub-name-perl/MANIFEST (original)
+++ trunk/libsub-name-perl/MANIFEST Wed Sep  8 16:49:22 2010
@@ -1,8 +1,10 @@
 Changes
-MANIFEST
-META.yml
+lib/Sub/Name.pm
 Makefile.PL
+MANIFEST			This list of files
+MANIFEST.SKIP
 Name.xs
 README
-lib/Sub/Name.pm
+t/RT42725_deparse.t
 t/smoke.t
+META.yml                                 Module meta-data (added by MakeMaker)

Modified: trunk/libsub-name-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsub-name-perl/META.yml?rev=62420&op=diff
==============================================================================
--- trunk/libsub-name-perl/META.yml (original)
+++ trunk/libsub-name-perl/META.yml Wed Sep  8 16:49:22 2010
@@ -1,13 +1,21 @@
 --- #YAML:1.0
-name:                Sub-Name
-version:             0.04
-abstract:            (re)name a sub
-license:             ~
-author:              
+name:               Sub-Name
+version:            0.05
+abstract:           (re)name a sub
+author:
     - Matthijs van Duin <xmath at cpan.org>
-generated_by:        ExtUtils::MakeMaker version 6.42
-distribution_type:   module
-requires:     
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:  {}
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
-    version: 1.3
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: trunk/libsub-name-perl/Name.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsub-name-perl/Name.xs?rev=62420&op=diff
==============================================================================
--- trunk/libsub-name-perl/Name.xs (original)
+++ trunk/libsub-name-perl/Name.xs Wed Sep  8 16:49:22 2010
@@ -1,5 +1,5 @@
 /* Copyright (C) 2004, 2008  Matthijs van Duin.  All rights reserved.
- * This program is free software; you can redistribute it and/or modify 
+ * This program is free software; you can redistribute it and/or modify
  * it under the same terms as Perl itself.
  */
 
@@ -31,6 +31,7 @@
 	GV *gv;
 	HV *stash = CopSTASH(PL_curcop);
 	char *s, *end = NULL, saved;
+	MAGIC *mg;
     PPCODE:
 	if (!SvROK(sub) && SvGMAGICAL(sub))
 		mg_get(sub);
@@ -41,7 +42,8 @@
 	else if (!SvOK(sub))
 		croak(PL_no_usym, "a subroutine");
 	else if (PL_op->op_private & HINT_STRICT_REFS)
-		croak(PL_no_symref, SvPV_nolen(sub), "a subroutine");
+		croak("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use",
+		      SvPV_nolen(sub), "a subroutine");
 	else if ((gv = gv_fetchpv(SvPV_nolen(sub), FALSE, SVt_PVCV)))
 		cv = GvCVu(gv);
 	if (!cv)
@@ -64,28 +66,26 @@
 	}
 	gv = (GV *) newSV(0);
 	gv_init(gv, stash, name, s - name, TRUE);
-#ifndef USE_5005THREADS
-	if (CvPADLIST(cv)) {
-		/* cheap way to refcount the gv */
-		av_store((AV *) AvARRAY(CvPADLIST(cv))[0], 0, (SV *) gv);
-	} else
+
+	mg = SvMAGIC(cv);
+	while (mg && mg->mg_virtual != &subname_vtbl)
+		mg = mg->mg_moremagic;
+	if (!mg) {
+		Newz(702, mg, 1, MAGIC);
+		mg->mg_moremagic = SvMAGIC(cv);
+		mg->mg_type = PERL_MAGIC_ext;
+		mg->mg_virtual = &subname_vtbl;
+		SvMAGIC_set(cv, mg);
+	}
+	if (mg->mg_flags & MGf_REFCOUNTED)
+		SvREFCNT_dec(mg->mg_obj);
+	mg->mg_flags |= MGf_REFCOUNTED;
+	mg->mg_obj = (SV *) gv;
+	SvRMAGICAL_on(cv);
+	CvANON_off(cv);
+#ifndef CvGV_set
+	CvGV(cv) = gv;
+#else
+	CvGV_set(cv, gv);
 #endif
-	{
-		/* expensive way to refcount the gv */
-		MAGIC *mg = SvMAGIC(cv);
-		while (mg && mg->mg_virtual != &subname_vtbl)
-			mg = mg->mg_moremagic;
-		if (!mg) {
-			Newz(702, mg, 1, MAGIC);
-			mg->mg_moremagic = SvMAGIC(cv);
-			mg->mg_type = PERL_MAGIC_ext;
-			mg->mg_virtual = &subname_vtbl;
-			SvMAGIC_set(cv, mg);
-		}
-		if (mg->mg_flags & MGf_REFCOUNTED)
-			SvREFCNT_dec(mg->mg_obj);
-		mg->mg_flags |= MGf_REFCOUNTED;
-		mg->mg_obj = (SV *) gv;
-	}
-	CvGV(cv) = gv;
 	PUSHs(sub);

Modified: trunk/libsub-name-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsub-name-perl/debian/changelog?rev=62420&op=diff
==============================================================================
--- trunk/libsub-name-perl/debian/changelog (original)
+++ trunk/libsub-name-perl/debian/changelog Wed Sep  8 16:49:22 2010
@@ -1,4 +1,4 @@
-libsub-name-perl (0.04-2) UNRELEASED; urgency=low
+libsub-name-perl (0.05-1) UNRELEASED; urgency=low
 
   [ Jonathan Yu ]
   * Standards-Version 3.8.3 (drop perl version dependency)
@@ -7,7 +7,14 @@
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
     (source stanza).
 
- -- Jonathan Yu <jawnsy at cpan.org>  Sat, 26 Sep 2009 08:04:34 -0400
+  [ Ansgar Burchardt ]
+  * New upstream release.
+  * Use tiny debian/rules.
+  * Use source format 3.0 (quilt).
+  * Convert debian/copyright to proposed machine-readable format.
+  * Bump Standards-Version to 3.9.1.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Thu, 09 Sep 2010 00:34:16 +0900
 
 libsub-name-perl (0.04-1) unstable; urgency=low
 

Modified: trunk/libsub-name-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsub-name-perl/debian/control?rev=62420&op=diff
==============================================================================
--- trunk/libsub-name-perl/debian/control (original)
+++ trunk/libsub-name-perl/debian/control Wed Sep  8 16:49:22 2010
@@ -5,14 +5,14 @@
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Krzysztof Krzyżaniak (eloy) <eloy at debian.org>,
  Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.8.3
+Standards-Version: 3.9.1
 Homepage: http://search.cpan.org/dist/Sub-Name/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libsub-name-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libsub-name-perl/
 
 Package: libsub-name-perl
 Architecture: any
-Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends}, 
+Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends}
 Description:  Assigns a new name to referenced sub
  Sub::Name has only one function, which is also exported by default:
  .

Modified: trunk/libsub-name-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsub-name-perl/debian/copyright?rev=62420&op=diff
==============================================================================
--- trunk/libsub-name-perl/debian/copyright (original)
+++ trunk/libsub-name-perl/debian/copyright Wed Sep  8 16:49:22 2010
@@ -1,23 +1,29 @@
-This is the debian package for the Sub-Name module.
-It was created by Krzysztof Krzyzaniak (eloy) <eloy at debian.org>.
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
+Maintainer: Florian Ragwitz <rafl at debian.org>
+Source: http://search.cpan.org/dist/Sub-Name/
+Name: Sub-Name
 
-It was downloaded from: http://search.cpan.org/~xmath/Sub-Name-0.02/
+Copyright: 2004-2008, Matthijs van Duin <xmath at cpan.org>
+License: Artistic or GPL-1+
 
-The upstream author is: Matthijs van Duin <xmath at cpan.org>
+Files: debian/*
+Copyright:
+ 2005-2008, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
+ 2008-2010, Ansgar Burchardt <ansgar at 43-1.org>
+License: Artistic or GPL-1+
 
-Copyright (C) 2004, 2008  Matthijs van Duin.  All rights reserved.
+License: Artistic
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ .
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'.
 
-This program is free software, you can redistribute it and/or modify it under
-the same terms as Perl itself.
-
-Perl is distributed under licenses:
-
-    a) the GNU General Public License as published by the Free Software
-       Foundation; either version 1, or (at your option) any later
-       version, or
-  
-    b) the "Artistic License" which comes with Perl.
-  
-    On Debian GNU/Linux systems, the complete text of the GNU General
-    Public License can be found in /usr/share/common-licenses/GPL' and
-    the Artistic Licence in /usr/share/common-licenses/Artistic'.
+License: GPL-1+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ .
+ On Debian GNU/Linux systems, the complete text of version 1 of the GNU
+ General Public License can be found in `/usr/share/common-licenses/GPL-1'.

Modified: trunk/libsub-name-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsub-name-perl/debian/rules?rev=62420&op=diff
==============================================================================
--- trunk/libsub-name-perl/debian/rules (original)
+++ trunk/libsub-name-perl/debian/rules Wed Sep  8 16:49:22 2010
@@ -1,23 +1,4 @@
 #!/usr/bin/make -f
 
-build: build-stamp
-build-stamp:
-	dh build
-	touch $@
-
-clean:
+%:
 	dh $@
-
-install: install-stamp
-install-stamp: build-stamp
-	dh install
-	touch $@
-
-binary-arch: install
-	dh $@
-
-binary-indep:
-
-binary: binary-arch binary-indep
-
-.PHONY: binary binary-arch binary-indep install clean build

Added: trunk/libsub-name-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsub-name-perl/debian/source/format?rev=62420&op=file
==============================================================================
--- trunk/libsub-name-perl/debian/source/format (added)
+++ trunk/libsub-name-perl/debian/source/format Wed Sep  8 16:49:22 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)

Modified: trunk/libsub-name-perl/lib/Sub/Name.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsub-name-perl/lib/Sub/Name.pm?rev=62420&op=diff
==============================================================================
--- trunk/libsub-name-perl/lib/Sub/Name.pm (original)
+++ trunk/libsub-name-perl/lib/Sub/Name.pm Wed Sep  8 16:49:22 2010
@@ -44,7 +44,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 use base 'Exporter';
 use base 'DynaLoader';




More information about the Pkg-perl-cvs-commits mailing list