r65851 - in /branches/upstream/libaspect-perl/current: ./ lib/ lib/Aspect/ lib/Aspect/Advice/ lib/Aspect/Library/ lib/Aspect/Library/Listenable/ lib/Aspect/Point/ lib/Aspect/Pointcut/ t/
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Wed Dec 15 17:06:10 UTC 2010
Author: angelabad-guest
Date: Wed Dec 15 17:05:54 2010
New Revision: 65851
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65851
Log:
[svn-upgrade] new version libaspect-perl (0.95)
Added:
branches/upstream/libaspect-perl/current/t/rt_57417.t
Modified:
branches/upstream/libaspect-perl/current/Changes
branches/upstream/libaspect-perl/current/MANIFEST
branches/upstream/libaspect-perl/current/META.yml
branches/upstream/libaspect-perl/current/lib/Aspect.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice/After.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterReturning.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterThrowing.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Around.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Before.pm
branches/upstream/libaspect-perl/current/lib/Aspect/AdviceContext.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Hook.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library/Breakpoint.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable/Event.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library/Singleton.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Library/Wormhole.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Modular.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point/After.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterReturning.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterThrowing.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point/Around.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Point/Before.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/And.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Call.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Cflow.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Highest.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/If.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Logic.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Not.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Or.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Throwing.pm
branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Wantarray.pm
Modified: branches/upstream/libaspect-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/Changes?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/Changes (original)
+++ branches/upstream/libaspect-perl/current/Changes Wed Dec 15 17:05:54 2010
@@ -1,4 +1,8 @@
Revision history for Perl extension Aspect
+
+0.95 Mon 13 Dec 2010
+ - Fixed #57528 ([PATCH] Fix spelling error
+ - Fixed #57417 Bad return value in list context
0.94 Fri 10 Dec 2010
- CPAN Testers is happy, moving to production release
Modified: branches/upstream/libaspect-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/MANIFEST?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/MANIFEST (original)
+++ branches/upstream/libaspect-perl/current/MANIFEST Wed Dec 15 17:05:54 2010
@@ -73,6 +73,7 @@
t/assumptions/closure.t
t/assumptions/context.t
t/listenable.t
+t/rt_57417.t
t/singleton.t
t/wormhole.t
xt/meta.t
Modified: branches/upstream/libaspect-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/META.yml?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/META.yml (original)
+++ branches/upstream/libaspect-perl/current/META.yml Wed Dec 15 17:05:54 2010
@@ -33,4 +33,4 @@
ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/Aspect
license: http://dev.perl.org/licenses/
repository: http://svn.ali.as/cpan/trunk/Aspect
-version: 0.94
+version: 0.95
Modified: branches/upstream/libaspect-perl/current/lib/Aspect.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect.pm Wed Dec 15 17:05:54 2010
@@ -31,7 +31,7 @@
use Aspect::Advice::AfterThrowing ();
use Aspect::AdviceContext ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
# Track the location of exported functions so that pointcuts
# can avoid accidentally binding them.
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice.pm Wed Dec 15 17:05:54 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.94';
+our $VERSION = '0.95';
sub new {
my $class = shift;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice/After.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice/After.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice/After.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice/After.pm Wed Dec 15 17:05:54 2010
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Point::After ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Advice';
# NOTE: To simplify debugging of the generated code, all injected string
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterReturning.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterReturning.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterReturning.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterReturning.pm Wed Dec 15 17:05:54 2010
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Point::AfterReturning ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Advice';
# NOTE: To simplify debugging of the generated code, all injected string
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterThrowing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterThrowing.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterThrowing.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice/AfterThrowing.pm Wed Dec 15 17:05:54 2010
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Point::AfterThrowing ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Advice';
# NOTE: To simplify debugging of the generated code, all injected string
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Around.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Around.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Around.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Around.pm Wed Dec 15 17:05:54 2010
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Point::Around ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Advice';
sub _install {
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Before.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Before.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Before.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Advice/Before.pm Wed Dec 15 17:05:54 2010
@@ -11,7 +11,7 @@
use Aspect::Advice ();
use Aspect::Point::Before ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Advice';
sub _install {
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/AdviceContext.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/AdviceContext.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/AdviceContext.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/AdviceContext.pm Wed Dec 15 17:05:54 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Point';
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Hook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Hook.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Hook.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Hook.pm Wed Dec 15 17:05:54 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.94';
+our $VERSION = '0.95';
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library.pm Wed Dec 15 17:05:54 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.94';
+our $VERSION = '0.95';
1;
@@ -28,7 +28,7 @@
L<Aspect::Modular> class and are deeply tied to it. For the second
generation API this lower level base class is provided to provide
a mechanism for identifying all reusable library aspects, from either
-the L<Aspect::Modular> API or independantly.
+the L<Aspect::Modular> API or independently.
=head1 AUTHORS
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library/Breakpoint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library/Breakpoint.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library/Breakpoint.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library/Breakpoint.pm Wed Dec 15 17:05:54 2010
@@ -5,7 +5,7 @@
use Aspect::Library ();
use Aspect::Advice::Before ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Library';
sub get_advice {
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable.pm Wed Dec 15 17:05:54 2010
@@ -12,7 +12,7 @@
use Aspect::Advice::Before ();
use Aspect::Library::Listenable::Event ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Modular';
sub import {
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable/Event.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable/Event.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable/Event.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library/Listenable/Event.pm Wed Dec 15 17:05:54 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.94';
+our $VERSION = '0.95';
sub new {
my $class = shift;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library/Singleton.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library/Singleton.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library/Singleton.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library/Singleton.pm Wed Dec 15 17:05:54 2010
@@ -6,7 +6,7 @@
use Aspect::Advice::Before ();
use Aspect::Pointcut::Call ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Modular';
my %CACHE = ();
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Library/Wormhole.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Library/Wormhole.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Library/Wormhole.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Library/Wormhole.pm Wed Dec 15 17:05:54 2010
@@ -8,7 +8,7 @@
use Aspect::Pointcut::Call ();
use Aspect::Pointcut::Cflow ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Modular';
sub get_advice {
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Modular.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Modular.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Modular.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Modular.pm Wed Dec 15 17:05:54 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Library ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Library';
sub new {
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point.pm Wed Dec 15 17:05:54 2010
@@ -5,7 +5,7 @@
use Carp ();
use Sub::Uplevel ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
@@ -90,7 +90,7 @@
$self->original,
$self->params,
) ];
- return $self->return_value($rv);
+ return $self->return_value(@$rv);
} elsif ( defined $self->{wantarray} ) {
my $rv = Sub::Uplevel::uplevel(
2,
@@ -190,7 +190,7 @@
$context->append_param($rdbms); # Append a param to sub call
$context->append_params($a, $b); # Append params to sub call
$context->return_value(4) # Don't proceed and return immediately
- $context->original->(x => 3); # Call matched sub independantly
+ $context->original->(x => 3); # Call matched sub independently
$context->proceed(1); # Continue to sub with context params
print $context->company->name; # Access cflow pointcut advice context
} $pointcut;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point/After.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point/After.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point/After.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point/After.pm Wed Dec 15 17:05:54 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Point';
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterReturning.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterReturning.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterReturning.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterReturning.pm Wed Dec 15 17:05:54 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Point';
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterThrowing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterThrowing.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterThrowing.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point/AfterThrowing.pm Wed Dec 15 17:05:54 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Point';
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point/Around.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point/Around.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point/Around.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point/Around.pm Wed Dec 15 17:05:54 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Point';
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Point/Before.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Point/Before.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Point/Before.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Point/Before.pm Wed Dec 15 17:05:54 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Point ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Point';
1;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut.pm Wed Dec 15 17:05:54 2010
@@ -40,7 +40,7 @@
use Aspect::Pointcut::And ();
use Aspect::Pointcut::Not ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
use overload (
# Keep traditional Perl boolification and stringification
@@ -333,7 +333,7 @@
never need to be tested.
The currying process will generate and return a new pointcut tree that is
-independant from the original, and that can perform a match test at the
+independent from the original, and that can perform a match test at the
structurally minimum computational cost.
Returns a new optimised B<Aspect::Pointcut> object if any further testing
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/And.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/And.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/And.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/And.pm Wed Dec 15 17:05:54 2010
@@ -5,7 +5,7 @@
use Aspect::Pointcut ();
use Aspect::Pointcut::Logic ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = qw{
Aspect::Pointcut::Logic
Aspect::Pointcut
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Call.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Call.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Call.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Call.pm Wed Dec 15 17:05:54 2010
@@ -6,7 +6,7 @@
use Params::Util ();
use Aspect::Pointcut ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Pointcut';
use constant ORIGINAL => 0;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Cflow.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Cflow.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Cflow.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Cflow.pm Wed Dec 15 17:05:54 2010
@@ -8,7 +8,7 @@
use Aspect::Pointcut::Call ();
use Aspect::AdviceContext ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Pointcut';
use constant KEY => 0;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Highest.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Highest.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Highest.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Highest.pm Wed Dec 15 17:05:54 2010
@@ -6,7 +6,7 @@
use Params::Util ();
use Aspect::Pointcut ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Pointcut';
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/If.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/If.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/If.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/If.pm Wed Dec 15 17:05:54 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Pointcut';
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Logic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Logic.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Logic.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Logic.pm Wed Dec 15 17:05:54 2010
@@ -5,7 +5,7 @@
use strict;
use warnings;
-our $VERSION = '0.94';
+our $VERSION = '0.95';
sub match_runtime {
return 0;
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Not.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Not.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Not.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Not.pm Wed Dec 15 17:05:54 2010
@@ -5,7 +5,7 @@
use Aspect::Pointcut ();
use Aspect::Pointcut::Logic ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = qw{
Aspect::Pointcut::Logic
Aspect::Pointcut
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Or.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Or.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Or.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Or.pm Wed Dec 15 17:05:54 2010
@@ -5,7 +5,7 @@
use Aspect::Pointcut ();
use Aspect::Pointcut::Logic ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = qw{
Aspect::Pointcut::Logic
Aspect::Pointcut
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Throwing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Throwing.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Throwing.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Throwing.pm Wed Dec 15 17:05:54 2010
@@ -6,7 +6,7 @@
use Params::Util ();
use Aspect::Pointcut ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Pointcut';
Modified: branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Wantarray.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Wantarray.pm?rev=65851&op=diff
==============================================================================
--- branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Wantarray.pm (original)
+++ branches/upstream/libaspect-perl/current/lib/Aspect/Pointcut/Wantarray.pm Wed Dec 15 17:05:54 2010
@@ -5,7 +5,7 @@
use Carp ();
use Aspect::Pointcut ();
-our $VERSION = '0.94';
+our $VERSION = '0.95';
our @ISA = 'Aspect::Pointcut';
use constant VOID => 1;
Added: branches/upstream/libaspect-perl/current/t/rt_57417.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaspect-perl/current/t/rt_57417.t?rev=65851&op=file
==============================================================================
--- branches/upstream/libaspect-perl/current/t/rt_57417.t (added)
+++ branches/upstream/libaspect-perl/current/t/rt_57417.t Wed Dec 15 17:05:54 2010
@@ -1,0 +1,88 @@
+#!/usr/bin/perl
+
+# Replication test for https://rt.cpan.org/Ticket/Display.html?id=57417
+
+# When ->run_original is used in list context, the return list is
+# accidentally stuffed inside a second ARRAY reference on return.
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+use Test::More tests => 12;
+use Test::NoWarnings;
+use Aspect;
+
+around {
+ shift->run_original;
+} call qr/^Foo::*/
+| call qr/^Bar::*/;
+
+sub get_foo {
+ return Foo->new;
+}
+
+# Raw constructors
+SCOPE: {
+ my $foo = Foo->new;
+ my $bar = Bar->new;
+ isa_ok( $foo, 'Foo' );
+ isa_ok( $bar, 'Bar' );
+}
+
+# Scalar context recursive call
+SCOPE: {
+ my $bar = Bar->new;
+ my $foo = &get_foo;
+ isa_ok( $bar, 'Bar' );
+ isa_ok( $foo, 'Foo' );
+ $bar->foo_hello($foo);
+}
+
+# List context recursive call
+SCOPE: {
+ my $bar = Bar->new;
+ my @foo = &get_foo;
+ isa_ok( $bar, 'Bar' );
+ is( scalar(@foo), 1, 'Got 1 element' );
+ isa_ok( $foo[0], 'Foo' );
+ $bar->foo_hello(@foo);
+}
+
+# Void context recursive call
+SCOPE: {
+ my $bar = Bar->new;
+ isa_ok( $bar, 'Bar' );
+ $bar->foo_hello(&get_foo);
+}
+
+
+
+
+
+######################################################################
+# Support Packages
+
+package Foo;
+
+sub new {
+ return bless {}, shift;
+}
+
+sub hello {
+ Test::More::pass( 'Got to ->hello method' );
+}
+
+package Bar;
+
+sub new {
+ return bless {}, shift;
+}
+
+sub foo_hello {
+ my $self = shift;
+ my $foo = shift;
+ $foo->hello;
+}
More information about the Pkg-perl-cvs-commits
mailing list