r57621 - in /branches/upstream/libmouse-perl/current: ./ lib/ lib/Mouse/ lib/Mouse/Meta/ lib/Mouse/Meta/Method/ lib/Mouse/Meta/Role/ lib/Mouse/Util/ t/900_mouse_bugs/ t/990_deprecated/ xs-src/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Fri May 7 14:26:37 UTC 2010
Author: ansgar-guest
Date: Fri May 7 14:26:27 2010
New Revision: 57621
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57621
Log:
[svn-upgrade] Integrating new upstream version, libmouse-perl (0.57)
Added:
branches/upstream/libmouse-perl/current/t/900_mouse_bugs/009_RT57144.t (with props)
Modified:
branches/upstream/libmouse-perl/current/Changes
branches/upstream/libmouse-perl/current/MANIFEST
branches/upstream/libmouse-perl/current/META.yml
branches/upstream/libmouse-perl/current/lib/Mouse.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Exporter.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Attribute.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Class.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Accessor.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Constructor.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Delegation.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Destructor.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Module.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Composite.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Method.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/TypeConstraint.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Object.pm
branches/upstream/libmouse-perl/current/lib/Mouse/PurePerl.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Role.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Spec.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Tiny.pod
branches/upstream/libmouse-perl/current/lib/Mouse/Util.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Util/TypeConstraints.pm
branches/upstream/libmouse-perl/current/lib/Mouse/XS.pod
branches/upstream/libmouse-perl/current/t/990_deprecated/044-attribute-metaclass.t
branches/upstream/libmouse-perl/current/xs-src/MouseUtil.xs
Modified: branches/upstream/libmouse-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/Changes?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/Changes (original)
+++ branches/upstream/libmouse-perl/current/Changes Fri May 7 14:26:27 2010
@@ -1,4 +1,8 @@
Revision history for Mouse
+
+0.57 Fri May 7 14:27:00 2010
+ [BUG FIX]
+ * Resolve RT #57144: Fix problems in Perl_call_sv() again (gfx)
0.56 Thu Apr 29 11:15:45 2010
[BUG FIX]
Modified: branches/upstream/libmouse-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/MANIFEST?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/MANIFEST (original)
+++ branches/upstream/libmouse-perl/current/MANIFEST Fri May 7 14:26:27 2010
@@ -289,6 +289,7 @@
t/900_mouse_bugs/006_RT69939.t
t/900_mouse_bugs/007_RT56523.t
t/900_mouse_bugs/008_RT56837.t
+t/900_mouse_bugs/009_RT57144.t
t/990_deprecated/001-export_to_level.t
t/990_deprecated/044-attribute-metaclass.t
t/990_deprecated/047-attribute-metaclass-role.t
Modified: branches/upstream/libmouse-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/META.yml?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/META.yml (original)
+++ branches/upstream/libmouse-perl/current/META.yml Fri May 7 14:26:27 2010
@@ -32,4 +32,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://git.moose.perl.org/Mouse.git
-version: 0.56
+version: 0.57
Modified: branches/upstream/libmouse-perl/current/lib/Mouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse.pm Fri May 7 14:26:27 2010
@@ -3,7 +3,7 @@
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.56';
+our $VERSION = '0.57';
use Carp qw(confess);
use Scalar::Util qw(blessed);
@@ -160,7 +160,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SYNOPSIS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Exporter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Exporter.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Exporter.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Exporter.pm Fri May 7 14:26:27 2010
@@ -272,7 +272,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SYNOPSIS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Attribute.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Attribute.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Attribute.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Attribute.pm Fri May 7 14:26:27 2010
@@ -401,7 +401,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 METHODS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Class.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Class.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Class.pm Fri May 7 14:26:27 2010
@@ -486,7 +486,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 METHODS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method.pm Fri May 7 14:26:27 2010
@@ -54,7 +54,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Accessor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Accessor.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Accessor.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Accessor.pm Fri May 7 14:26:27 2010
@@ -182,7 +182,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Constructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Constructor.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Constructor.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Constructor.pm Fri May 7 14:26:27 2010
@@ -235,7 +235,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Delegation.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Delegation.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Delegation.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Delegation.pm Fri May 7 14:26:27 2010
@@ -61,7 +61,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Destructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Destructor.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Destructor.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Destructor.pm Fri May 7 14:26:27 2010
@@ -55,7 +55,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Module.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Module.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Module.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Module.pm Fri May 7 14:26:27 2010
@@ -329,7 +329,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role.pm Fri May 7 14:26:27 2010
@@ -312,7 +312,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Composite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Composite.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Composite.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Composite.pm Fri May 7 14:26:27 2010
@@ -125,7 +125,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Method.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Method.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Method.pm Fri May 7 14:26:27 2010
@@ -23,7 +23,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/TypeConstraint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/TypeConstraint.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/TypeConstraint.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/TypeConstraint.pm Fri May 7 14:26:27 2010
@@ -236,7 +236,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 DESCRIPTION
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Object.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Object.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Object.pm Fri May 7 14:26:27 2010
@@ -17,7 +17,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 METHODS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/PurePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/PurePerl.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/PurePerl.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/PurePerl.pm Fri May 7 14:26:27 2010
@@ -720,7 +720,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Role.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Role.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Role.pm Fri May 7 14:26:27 2010
@@ -1,7 +1,7 @@
package Mouse::Role;
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.56';
+our $VERSION = '0.57';
use Carp qw(confess);
use Scalar::Util qw(blessed);
@@ -145,7 +145,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SYNOPSIS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Spec.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Spec.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Spec.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Spec.pm Fri May 7 14:26:27 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.56';
+our $VERSION = '0.57';
our $MouseVersion = $VERSION;
our $MooseVersion = '0.93';
@@ -19,7 +19,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 SYNOPSIS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Tiny.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Tiny.pod?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Tiny.pod (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Tiny.pod Fri May 7 14:26:27 2010
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 DESCRIPTION
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Util.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Util.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Util.pm Fri May 7 14:26:27 2010
@@ -52,7 +52,7 @@
# Because Mouse::Util is loaded first in all the Mouse sub-modules,
# XS loader is placed here, not in Mouse.pm.
- our $VERSION = '0.56';
+ our $VERSION = '0.57';
my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL});
@@ -365,7 +365,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 IMPLEMENTATIONS FOR
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Util/TypeConstraints.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Util/TypeConstraints.pm?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Util/TypeConstraints.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Util/TypeConstraints.pm Fri May 7 14:26:27 2010
@@ -406,7 +406,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head2 SYNOPSIS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/XS.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/XS.pod?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/XS.pod (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/XS.pod Fri May 7 14:26:27 2010
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.56
+This document describes Mouse version 0.57
=head1 DESCRIPTION
Added: branches/upstream/libmouse-perl/current/t/900_mouse_bugs/009_RT57144.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/t/900_mouse_bugs/009_RT57144.t?rev=57621&op=file
==============================================================================
--- branches/upstream/libmouse-perl/current/t/900_mouse_bugs/009_RT57144.t (added)
+++ branches/upstream/libmouse-perl/current/t/900_mouse_bugs/009_RT57144.t Fri May 7 14:26:27 2010
@@ -1,0 +1,41 @@
+#!/usr/bin/perl
+# https://rt.cpan.org/Public/Bug/Display.html?id=57144
+use strict;
+use Test::More;
+
+package Hoge;
+use Mouse;
+
+has 'fuga' => (
+ is => 'rw',
+ isa => 'Str',
+ lazy_build => 1,
+);
+
+has 'hoge' => (
+ is => 'rw',
+ isa => 'Str',
+ lazy_build => 1,
+);
+
+sub _build_fuga {
+ shift->hoge;
+}
+
+sub _build_hoge {
+ eval "use Hoge::Hoge"; ## no critic
+ "HOGE";
+}
+
+sub msg {
+ shift->fuga;
+}
+
+package main;
+use strict;
+use warnings;
+
+my $hoge = Hoge->new;
+is $hoge->msg, "HOGE";
+
+done_testing;
Propchange: branches/upstream/libmouse-perl/current/t/900_mouse_bugs/009_RT57144.t
------------------------------------------------------------------------------
svn:executable = *
Modified: branches/upstream/libmouse-perl/current/t/990_deprecated/044-attribute-metaclass.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/t/990_deprecated/044-attribute-metaclass.t?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/t/990_deprecated/044-attribute-metaclass.t (original)
+++ branches/upstream/libmouse-perl/current/t/990_deprecated/044-attribute-metaclass.t Fri May 7 14:26:27 2010
@@ -31,14 +31,14 @@
return $attr;
};
- around 'canonicalize_args' => sub {
- my ($next, $self, $name, %args) = @_;
-
- %args = $next->($self, $name, %args);
- $args{is} = 'rw' unless exists $args{is};
-
- return %args;
- };
+ around 'canonicalize_args' => sub {
+ my ($next, $self, $name, %args) = @_;
+
+ %args = $next->($self, $name, %args);
+ $args{is} = 'rw' unless exists $args{is};
+
+ return %args;
+ };
package # hide me from search.cpan.org
Mouse::Meta::Attribute::Custom::Number;
Modified: branches/upstream/libmouse-perl/current/xs-src/MouseUtil.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/xs-src/MouseUtil.xs?rev=57621&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/xs-src/MouseUtil.xs (original)
+++ branches/upstream/libmouse-perl/current/xs-src/MouseUtil.xs Fri May 7 14:26:27 2010
@@ -123,12 +123,13 @@
/* workaround RT #69939 */
I32
mouse_call_sv_safe(pTHX_ SV* const sv, I32 const flags) {
+ const PERL_CONTEXT* const cx = &cxstack[cxstack_ix];
assert( (flags & G_EVAL) == 0 );
-
- if(!PL_in_eval) {
+ //warn("%d 0x%x 0x%x", (int)cx->cx_type, (int)cx->cx_type, (int)PL_in_eval);
+ if(!(cx->cx_type & (CXt_EVAL|CXp_TRYBLOCK))) {
I32 count;
- SAVESPTR(ERRSV);
- ERRSV = sv_newmortal();
+ //SAVESPTR(ERRSV);
+ //ERRSV = sv_newmortal();
count = Perl_call_sv(aTHX_ sv, flags | G_EVAL);
More information about the Pkg-perl-cvs-commits
mailing list