r52927 - in /branches/upstream/libdevel-caller-perl/current: Caller.xs Changes META.yml lib/Devel/Caller.pm

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

Author: jawnsy-guest
Date: Wed Feb 17 02:24:03 2010
New Revision: 52927

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

Modified:
    branches/upstream/libdevel-caller-perl/current/Caller.xs
    branches/upstream/libdevel-caller-perl/current/Changes
    branches/upstream/libdevel-caller-perl/current/META.yml
    branches/upstream/libdevel-caller-perl/current/lib/Devel/Caller.pm

Modified: branches/upstream/libdevel-caller-perl/current/Caller.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-caller-perl/current/Caller.xs?rev=52927&op=diff
==============================================================================
--- branches/upstream/libdevel-caller-perl/current/Caller.xs (original)
+++ branches/upstream/libdevel-caller-perl/current/Caller.xs Wed Feb 17 02:24:03 2010
@@ -12,8 +12,8 @@
     PERL_CONTEXT *cx = INT2PTR(PERL_CONTEXT *, SvIV(context));
     CV *cur_cv;
 
-    if (cx->cx_type != CXt_SUB)
-        croak("cx_type is %d not CXt_SUB\n", cx->cx_type);
+    if (CxTYPE(cx) != CXt_SUB)
+        croak("cx_type is %d not CXt_SUB\n", CxTYPE(cx));
 
     cur_cv = cx->blk_sub.cv;
     if (!cur_cv)

Modified: branches/upstream/libdevel-caller-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-caller-perl/current/Changes?rev=52927&op=diff
==============================================================================
--- branches/upstream/libdevel-caller-perl/current/Changes (original)
+++ branches/upstream/libdevel-caller-perl/current/Changes Wed Feb 17 02:24:03 2010
@@ -1,3 +1,7 @@
+2.04 Tuesday 16th February, 2010
+	Use CxTYPE macro rather than directly inspecting cx->cx_type
+	http://rt.cpan.org/Public/Bug/Display.html?id=33005
+
 2.03 Tuesday 8th January, 2008
 	Rerelease from a linux host to avoid hateful OSX and its
 	hateful resource forks http://rt.cpan.org/Ticket/Display.html?id=32154

Modified: branches/upstream/libdevel-caller-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-caller-perl/current/META.yml?rev=52927&op=diff
==============================================================================
--- branches/upstream/libdevel-caller-perl/current/META.yml (original)
+++ branches/upstream/libdevel-caller-perl/current/META.yml Wed Feb 17 02:24:03 2010
@@ -1,12 +1,22 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Devel-Caller
-version:      2.03
-version_from: lib/Devel/Caller.pm
-installdirs:  site
+--- #YAML:1.0
+name:               Devel-Caller
+version:            2.04
+abstract:           ~
+author:  []
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
 requires:
-    PadWalker:                     0.08
-    Test::More:                    0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+    PadWalker:   0.08
+    Test::More:  0
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.50
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: branches/upstream/libdevel-caller-perl/current/lib/Devel/Caller.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-caller-perl/current/lib/Devel/Caller.pm?rev=52927&op=diff
==============================================================================
--- branches/upstream/libdevel-caller-perl/current/lib/Devel/Caller.pm (original)
+++ branches/upstream/libdevel-caller-perl/current/lib/Devel/Caller.pm Wed Feb 17 02:24:03 2010
@@ -7,7 +7,7 @@
 use base qw( Exporter  );
 use 5.008;
 
-our $VERSION = '2.03';
+our $VERSION = '2.04';
 XSLoader::load __PACKAGE__, $VERSION;
 
 our @EXPORT_OK = qw( caller_cv caller_args caller_vars called_with called_as_method );
@@ -235,7 +235,8 @@
 
 =head1 COPYRIGHT
 
-Copyright (c) 2002, 2003, 2006, 2007, 2008 Richard Clamp. All Rights Reserved.
+Copyright (c) 2002, 2003, 2006, 2007, 2008, 2010 Richard Clamp. All Rights
+Reserved.
 This module is free software. It may be used, redistributed and/or
 modified under the same terms as Perl itself.