r70580 - in /branches/upstream/libclass-methodmaker-perl/current: Changes MANIFEST META.yml Makefile.PL MethodMaker.xs lib/Class/MethodMaker.pm lib/Class/MethodMaker/Engine.pm t/warnings.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Sun Mar 6 00:51:11 UTC 2011


Author: jawnsy-guest
Date: Sun Mar  6 00:50:54 2011
New Revision: 70580

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70580
Log:
[svn-upgrade] new version libclass-methodmaker-perl (2.17)

Added:
    branches/upstream/libclass-methodmaker-perl/current/t/warnings.t
Modified:
    branches/upstream/libclass-methodmaker-perl/current/Changes
    branches/upstream/libclass-methodmaker-perl/current/MANIFEST
    branches/upstream/libclass-methodmaker-perl/current/META.yml
    branches/upstream/libclass-methodmaker-perl/current/Makefile.PL
    branches/upstream/libclass-methodmaker-perl/current/MethodMaker.xs
    branches/upstream/libclass-methodmaker-perl/current/lib/Class/MethodMaker.pm
    branches/upstream/libclass-methodmaker-perl/current/lib/Class/MethodMaker/Engine.pm

Modified: branches/upstream/libclass-methodmaker-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-methodmaker-perl/current/Changes?rev=70580&op=diff
==============================================================================
--- branches/upstream/libclass-methodmaker-perl/current/Changes (original)
+++ branches/upstream/libclass-methodmaker-perl/current/Changes Sun Mar  6 00:50:54 2011
@@ -1,4 +1,15 @@
 Revision History for Class::MethodMaker (versions 2)
+
+2.17	Mar 02 2011
+        - Just an intermediate release!
+          (in order to get help on fixing Class::MethodMaker for 5.14)
+        - already fixed breakage with 5.13.3
+          (CvGV is now an rvalue, so use CvGV_set instead of assigning
+          directly -- credits to ANDK, rafl and Zefram)
+        - added test for no warnings to additionally be able to bisect
+          annoying warnings since 5.13.2
+        - Stay tuned -- 2.18 will hopefully completely revitalize C:MM
+          for Perl 5.13+.
 
 2.16	May 11 2010
 	- Drop signature self test in order to fix rt#57359

Modified: branches/upstream/libclass-methodmaker-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-methodmaker-perl/current/MANIFEST?rev=70580&op=diff
==============================================================================
--- branches/upstream/libclass-methodmaker-perl/current/MANIFEST (original)
+++ branches/upstream/libclass-methodmaker-perl/current/MANIFEST Sun Mar  6 00:50:54 2011
@@ -61,4 +61,5 @@
 t/v1_tie_hash.t
 t/v1_tie_list.t
 t/v1_tie_scalar.t
+t/warnings.t
 TODO

Modified: branches/upstream/libclass-methodmaker-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-methodmaker-perl/current/META.yml?rev=70580&op=diff
==============================================================================
--- branches/upstream/libclass-methodmaker-perl/current/META.yml (original)
+++ branches/upstream/libclass-methodmaker-perl/current/META.yml Sun Mar  6 00:50:54 2011
@@ -1,12 +1,14 @@
 --- #YAML:1.0
 name:               Class-MethodMaker
-version:            2.16
+version:            2.17
 abstract:           a module for creating generic methods
 author:
     - Martyn J. Pearce
 license:            perl
 distribution_type:  module
 configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
     ExtUtils::MakeMaker:  0
 requires:
     perl:  5.006
@@ -16,7 +18,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.48
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/libclass-methodmaker-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-methodmaker-perl/current/Makefile.PL?rev=70580&op=diff
==============================================================================
--- branches/upstream/libclass-methodmaker-perl/current/Makefile.PL (original)
+++ branches/upstream/libclass-methodmaker-perl/current/Makefile.PL Sun Mar  6 00:50:54 2011
@@ -47,7 +47,7 @@
 my %MakefileArgs = (
   NAME         => 'Class::MethodMaker',
   DISTNAME     => 'Class-MethodMaker',
-  VERSION      => '2.16',
+  VERSION      => '2.17',
   AUTHOR       => 'Martyn J. Pearce',
   LICENSE      => 'perl',
   ABSTRACT     => 'a module for creating generic methods',

Modified: branches/upstream/libclass-methodmaker-perl/current/MethodMaker.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-methodmaker-perl/current/MethodMaker.xs?rev=70580&op=diff
==============================================================================
--- branches/upstream/libclass-methodmaker-perl/current/MethodMaker.xs (original)
+++ branches/upstream/libclass-methodmaker-perl/current/MethodMaker.xs Sun Mar  6 00:50:54 2011
@@ -2,7 +2,14 @@
 #include "perl.h"
 #include "XSUB.h"
 
+/* inspired/stolen from Clone::Closure, to keep in sync with 5.13.3+ */
+#ifndef CvGV_set
+#define CvGV_set(cv,gv) CvGV(cv) = (gv)
+#endif
+
 MODULE = Class::MethodMaker PACKAGE = Class::MethodMaker
+
+PROTOTYPES: ENABLE
 
 int
 set_sub_name(SV *sub, char *pname, char *subname, char *stashname)
@@ -10,7 +17,7 @@
     if (!SvTRUE(ST(0)) || !SvTRUE(ST(1)) || !SvTRUE(ST(2)) || !SvTRUE(ST(3)))
       XSRETURN_UNDEF;
   CODE:
-    CvGV((GV*)SvRV(sub)) = gv_fetchpv(stashname, TRUE, SVt_PV);
+    CvGV_set((CV*)SvRV(sub), gv_fetchpv(stashname, TRUE, SVt_PV));
     GvSTASH(CvGV((GV*)SvRV(sub))) = gv_stashpv(pname, 1);
 #ifdef gv_name_set
     gv_name_set(CvGV((GV*)SvRV(sub)), subname, strlen(subname), GV_NOTQUAL);

Modified: branches/upstream/libclass-methodmaker-perl/current/lib/Class/MethodMaker.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-methodmaker-perl/current/lib/Class/MethodMaker.pm?rev=70580&op=diff
==============================================================================
--- branches/upstream/libclass-methodmaker-perl/current/lib/Class/MethodMaker.pm (original)
+++ branches/upstream/libclass-methodmaker-perl/current/lib/Class/MethodMaker.pm Sun Mar  6 00:50:54 2011
@@ -6,7 +6,7 @@
 use Class::MethodMaker::Engine    qw();
 
 # Make this line self-contained so MakeMaker can eval() it.
-our $VERSION = '2.16';
+our $VERSION = '2.17';
 our $PACKAGE = 'Class-MethodMaker';
 
 use XSLoader qw();

Modified: branches/upstream/libclass-methodmaker-perl/current/lib/Class/MethodMaker/Engine.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-methodmaker-perl/current/lib/Class/MethodMaker/Engine.pm?rev=70580&op=diff
==============================================================================
--- branches/upstream/libclass-methodmaker-perl/current/lib/Class/MethodMaker/Engine.pm (original)
+++ branches/upstream/libclass-methodmaker-perl/current/lib/Class/MethodMaker/Engine.pm Sun Mar  6 00:50:54 2011
@@ -57,7 +57,7 @@
 # -------------------------------------
 
 our $PACKAGE = 'Class-MethodMaker';
-our $VERSION = '2.16';
+our $VERSION = '2.17';
 
 # -------------------------------------
 # CLASS CONSTRUCTION

Added: branches/upstream/libclass-methodmaker-perl/current/t/warnings.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-methodmaker-perl/current/t/warnings.t?rev=70580&op=file
==============================================================================
--- branches/upstream/libclass-methodmaker-perl/current/t/warnings.t (added)
+++ branches/upstream/libclass-methodmaker-perl/current/t/warnings.t Sun Mar  6 00:50:54 2011
@@ -1,0 +1,72 @@
+#!perl -w
+# (X)Emacs mode: -*- cperl -*-
+
+use strict;
+use warnings;
+
+=head1 Unit Test Package for Class::MethodMaker
+
+This package tests the basic compilation and working of Class::MethodMaker
+similar to basic but with warnings explicitely on to check for 5.13.2-related
+new warnings.
+
+=cut
+
+use Data::Dumper        qw( );
+use FindBin        1.42 qw( $Bin );
+use Test           1.13 qw( ok plan );
+
+use lib $Bin;
+use test qw( DATA_DIR
+             evcheck );
+
+use vars qw(@MYWARNINGS);
+BEGIN { $SIG{__WARN__} = sub { push @MYWARNINGS, $_[0] }; }
+
+BEGIN {
+  # 1 for compilation test,
+  plan tests  => 3,
+       todo   => [],
+}
+
+# ----------------------------------------------------------------------------
+
+=head2 Test 1: compilation
+
+This test confirms that the test script and the modules it calls compiled
+successfully.
+
+=cut
+
+use Class::MethodMaker;
+
+ok 1, 1, 'compilation';
+
+# -------------------------------------
+
+=head2 Test 2: scalar
+
+=cut
+
+package bob;
+
+local $^W = 1;
+
+use Class::MethodMaker
+  [ scalar =>[qw/ foo /] ];
+
+package main;
+
+local $^W = 1;
+
+my $bob = bless {}, 'bob';
+print Data::Dumper->Dump([ $bob ], [qw( bob )])
+  if $ENV{TEST_DEBUG};
+$bob->foo("x");
+print Data::Dumper->Dump([ $bob ], [qw( bob )])
+  if $ENV{TEST_DEBUG};
+ok $bob->foo, "x",                                              'scalar ( 1)';
+
+# ----------------------------------------------------------------------------
+
+ok scalar(@MYWARNINGS), 0, 'no warnings occurred';




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