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