r23383 - in /branches/upstream/libsub-name-perl/current: Changes META.yml Makefile.PL Name.xs README lib/Sub/Name.pm t/smoke.t
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sat Jul 19 07:28:42 UTC 2008
Author: ansgar-guest
Date: Sat Jul 19 07:28:40 2008
New Revision: 23383
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=23383
Log:
[svn-upgrade] Integrating new upstream version, libsub-name-perl (0.04)
Modified:
branches/upstream/libsub-name-perl/current/Changes
branches/upstream/libsub-name-perl/current/META.yml
branches/upstream/libsub-name-perl/current/Makefile.PL
branches/upstream/libsub-name-perl/current/Name.xs
branches/upstream/libsub-name-perl/current/README
branches/upstream/libsub-name-perl/current/lib/Sub/Name.pm
branches/upstream/libsub-name-perl/current/t/smoke.t
Modified: branches/upstream/libsub-name-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsub-name-perl/current/Changes?rev=23383&op=diff
==============================================================================
--- branches/upstream/libsub-name-perl/current/Changes (original)
+++ branches/upstream/libsub-name-perl/current/Changes Sat Jul 19 07:28:40 2008
@@ -1,4 +1,5 @@
-$Id: Changes,v 1.1 2004/08/18 17:53:45 xmath Exp $
+0.04 -- Fri Jul 18 15:23 CEST 2008
+ * Fixed for perl 5.6 and 5.005 threads (tested)
0.03 -- Wed Feb 20 20:19 CET 2008
* Fixed crash when trying to rename xsubs
Modified: branches/upstream/libsub-name-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsub-name-perl/current/META.yml?rev=23383&op=diff
==============================================================================
--- branches/upstream/libsub-name-perl/current/META.yml (original)
+++ branches/upstream/libsub-name-perl/current/META.yml Sat Jul 19 07:28:40 2008
@@ -1,10 +1,13 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Sub-Name
-version: 0.03
-version_from: lib/Sub/Name.pm
-installdirs: site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+--- #YAML:1.0
+name: Sub-Name
+version: 0.04
+abstract: (re)name a sub
+license: ~
+author:
+ - Matthijs van Duin <xmath at cpan.org>
+generated_by: ExtUtils::MakeMaker version 6.42
+distribution_type: module
+requires:
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: branches/upstream/libsub-name-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsub-name-perl/current/Makefile.PL?rev=23383&op=diff
==============================================================================
--- branches/upstream/libsub-name-perl/current/Makefile.PL (original)
+++ branches/upstream/libsub-name-perl/current/Makefile.PL Sat Jul 19 07:28:40 2008
@@ -1,5 +1,3 @@
-# $Id: Makefile.PL,v 1.1 2004/08/17 19:23:24 xmath Exp $
-
use 5.006;
use ExtUtils::MakeMaker;
Modified: branches/upstream/libsub-name-perl/current/Name.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsub-name-perl/current/Name.xs?rev=23383&op=diff
==============================================================================
--- branches/upstream/libsub-name-perl/current/Name.xs (original)
+++ branches/upstream/libsub-name-perl/current/Name.xs Sat Jul 19 07:28:40 2008
@@ -1,5 +1,4 @@
-/* $Id: Name.xs,v 1.5 2004/08/18 13:21:44 xmath Exp $
- * Copyright (C) 2004 Matthijs van Duin. All rights reserved.
+/* Copyright (C) 2004, 2008 Matthijs van Duin. All rights reserved.
* This program is free software; you can redistribute it and/or modify
* it under the same terms as Perl itself.
*/
@@ -9,6 +8,15 @@
#include "XSUB.h"
static MGVTBL subname_vtbl;
+
+#ifndef PERL_MAGIC_ext
+# define PERL_MAGIC_ext '~'
+#endif
+
+#ifndef SvMAGIC_set
+#define SvMAGIC_set(sv, val) (SvMAGIC(sv) = (val))
+#endif
+
MODULE = Sub::Name PACKAGE = Sub::Name
@@ -60,16 +68,20 @@
if (CvPADLIST(cv)) {
/* cheap way to refcount the gv */
av_store((AV *) AvARRAY(CvPADLIST(cv))[0], 0, (SV *) gv);
- }
+ } else
#endif
- else {
+ {
/* expensive way to refcount the gv */
MAGIC *mg = SvMAGIC(cv);
while (mg && mg->mg_virtual != &subname_vtbl)
mg = mg->mg_moremagic;
- if (!mg)
- mg = sv_magicext((SV *) cv, NULL, PERL_MAGIC_ext,
- &subname_vtbl, NULL, 0);
+ 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;
Modified: branches/upstream/libsub-name-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsub-name-perl/current/README?rev=23383&op=diff
==============================================================================
--- branches/upstream/libsub-name-perl/current/README (original)
+++ branches/upstream/libsub-name-perl/current/README Sat Jul 19 07:28:40 2008
@@ -1,6 +1,4 @@
-$Id: README,v 1.5 2004/08/18 17:53:45 xmath Exp $
-
-Sub::Name 0.01
+Sub::Name 0.04
To install this module type the following:
@@ -41,6 +39,6 @@
AUTHOR
Matthijs van Duin <xmath at cpan.org>
- Copyright (C) 2004 Matthijs van Duin. All rights reserved. This program
- is free software; you can redistribute it and/or modify it under the
- same terms as Perl itself.
+ Copyright (C) 2004, 2008 Matthijs van Duin. All rights reserved. This
+ program is free software; you can redistribute it and/or modify it under
+ the same terms as Perl itself.
Modified: branches/upstream/libsub-name-perl/current/lib/Sub/Name.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsub-name-perl/current/lib/Sub/Name.pm?rev=23383&op=diff
==============================================================================
--- branches/upstream/libsub-name-perl/current/lib/Sub/Name.pm (original)
+++ branches/upstream/libsub-name-perl/current/lib/Sub/Name.pm Sat Jul 19 07:28:40 2008
@@ -1,5 +1,3 @@
-# $Id: Name.pm,v 1.5 2004/08/18 17:53:45 xmath Exp $
-
package Sub::Name;
=head1 NAME
@@ -35,7 +33,7 @@
Matthijs van Duin <xmath at cpan.org>
-Copyright (C) 2004 Matthijs van Duin. All rights reserved.
+Copyright (C) 2004, 2008 Matthijs van Duin. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
@@ -46,7 +44,7 @@
use strict;
use warnings;
-our $VERSION = '0.03';
+our $VERSION = '0.04';
use base 'Exporter';
use base 'DynaLoader';
Modified: branches/upstream/libsub-name-perl/current/t/smoke.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsub-name-perl/current/t/smoke.t?rev=23383&op=diff
==============================================================================
--- branches/upstream/libsub-name-perl/current/t/smoke.t (original)
+++ branches/upstream/libsub-name-perl/current/t/smoke.t Sat Jul 19 07:28:40 2008
@@ -26,5 +26,4 @@
print $x->() eq "Blork::Dynamic $_" ? "ok $_\n" : "not ok $_\n";
}
-# $Id: smoke.t,v 1.4 2004/08/18 12:03:42 xmath Exp $
# vim: ft=perl
More information about the Pkg-perl-cvs-commits
mailing list