r52851 - in /trunk/libaspect-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/ lib/Aspect/ lib/Aspect/Advice/ lib/Aspect/Context/ lib/Aspect/Library/ lib/Aspect/Library/Listenable/ lib/Aspect/Pointcut/ t/ xt/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Feb 15 22:56:37 UTC 2010
Author: jawnsy-guest
Date: Mon Feb 15 22:56:29 2010
New Revision: 52851
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52851
Log:
New upstream release
Added:
trunk/libaspect-perl/xt/meta.t
- copied unchanged from r52849, branches/upstream/libaspect-perl/current/xt/meta.t
trunk/libaspect-perl/xt/pmv.t
- copied unchanged from r52849, branches/upstream/libaspect-perl/current/xt/pmv.t
Removed:
trunk/libaspect-perl/t/97_meta.t
trunk/libaspect-perl/t/98_pod.t
trunk/libaspect-perl/t/99_pmv.t
trunk/libaspect-perl/xt/compile.t
trunk/libaspect-perl/xt/podspell.t
trunk/libaspect-perl/xt/portability_files.t
trunk/libaspect-perl/xt/synopsis.t
trunk/libaspect-perl/xt/yaml_meta.t
Modified:
trunk/libaspect-perl/Changes
trunk/libaspect-perl/MANIFEST
trunk/libaspect-perl/META.yml
trunk/libaspect-perl/debian/changelog
trunk/libaspect-perl/debian/control
trunk/libaspect-perl/inc/Module/Install.pm
trunk/libaspect-perl/inc/Module/Install/Base.pm
trunk/libaspect-perl/inc/Module/Install/Can.pm
trunk/libaspect-perl/inc/Module/Install/DSL.pm
trunk/libaspect-perl/inc/Module/Install/Fetch.pm
trunk/libaspect-perl/inc/Module/Install/Makefile.pm
trunk/libaspect-perl/inc/Module/Install/Metadata.pm
trunk/libaspect-perl/inc/Module/Install/Win32.pm
trunk/libaspect-perl/inc/Module/Install/WriteAll.pm
trunk/libaspect-perl/lib/Aspect.pm
trunk/libaspect-perl/lib/Aspect/Advice.pm
trunk/libaspect-perl/lib/Aspect/Advice/After.pm
trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm
trunk/libaspect-perl/lib/Aspect/Advice/AfterThrowing.pm
trunk/libaspect-perl/lib/Aspect/Advice/Around.pm
trunk/libaspect-perl/lib/Aspect/Advice/Before.pm
trunk/libaspect-perl/lib/Aspect/AdviceContext.pm
trunk/libaspect-perl/lib/Aspect/Context.pm
trunk/libaspect-perl/lib/Aspect/Context/After.pm
trunk/libaspect-perl/lib/Aspect/Context/AfterReturning.pm
trunk/libaspect-perl/lib/Aspect/Context/AfterThrowing.pm
trunk/libaspect-perl/lib/Aspect/Context/Around.pm
trunk/libaspect-perl/lib/Aspect/Context/Before.pm
trunk/libaspect-perl/lib/Aspect/Hook.pm
trunk/libaspect-perl/lib/Aspect/Library.pm
trunk/libaspect-perl/lib/Aspect/Library/Breakpoint.pm
trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm
trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm
trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm
trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm
trunk/libaspect-perl/lib/Aspect/Modular.pm
trunk/libaspect-perl/lib/Aspect/Pointcut.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/And.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Highest.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/If.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Logic.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Not.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Or.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Throwing.pm
trunk/libaspect-perl/lib/Aspect/Pointcut/Wantarray.pm
trunk/libaspect-perl/xt/pod.t
Modified: trunk/libaspect-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/Changes?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/Changes (original)
+++ trunk/libaspect-perl/Changes Mon Feb 15 22:56:29 2010
@@ -1,4 +1,10 @@
Revision history for Perl extension Aspect
+
+0.44 Mon 15 Feb 2010 - Adam Kennedy
+ - Inlined and reimplemented a stripped down and faster replacement
+ for the functionality provided by Devel::Symdump to make match_all
+ significantly faster and remove potential issues with Devel::Symdump
+ on Mac OS 5.10.0
0.43 Thu 28 Jan 2010 - Adam Kennedy
- Fixed a pointcut optimisation problem where we were currying away
Modified: trunk/libaspect-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/MANIFEST?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/MANIFEST (original)
+++ trunk/libaspect-perl/MANIFEST Mon Feb 15 22:56:29 2010
@@ -70,17 +70,11 @@
t/26_advice_after_throwing.t
t/31_feature_caller.t
t/32_feature_wantarray.t
-t/97_meta.t
-t/98_pod.t
-t/99_pmv.t
t/assumptions/closure.t
t/assumptions/context.t
t/listenable.t
t/singleton.t
t/wormhole.t
-xt/compile.t
+xt/meta.t
+xt/pmv.t
xt/pod.t
-xt/podspell.t
-xt/portability_files.t
-xt/synopsis.t
-xt/yaml_meta.t
Modified: trunk/libaspect-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/META.yml?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/META.yml (original)
+++ trunk/libaspect-perl/META.yml Mon Feb 15 22:56:29 2010
@@ -10,7 +10,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.92'
+generated_by: 'Module::Install version 0.93'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -24,7 +24,6 @@
- t
- xt
requires:
- Devel::Symdump: 2.04
Params::Util: 1.00
Sub::Install: 0.92
Sub::Uplevel: 0.2002
@@ -34,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.43
+version: 0.44
Modified: trunk/libaspect-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/debian/changelog?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/debian/changelog (original)
+++ trunk/libaspect-perl/debian/changelog Mon Feb 15 22:56:29 2010
@@ -1,3 +1,9 @@
+libaspect-perl (0.44-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Mon, 15 Feb 2010 16:58:46 -0500
+
libaspect-perl (0.43-1) unstable; urgency=low
* New upstream release
Modified: trunk/libaspect-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/debian/control?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/debian/control (original)
+++ trunk/libaspect-perl/debian/control Mon Feb 15 22:56:29 2010
@@ -2,7 +2,7 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7.0.50)
-Build-Depends-Indep: perl, libdevel-symdump-perl (>= 2.04),
+Build-Depends-Indep: perl,
perl (>= 5.10.1) | libpod-simple-perl (>= 3.07), libtest-cpan-meta-perl,
libtest-pod-perl (>= 1.26), libtest-class-perl (>= 0.33),
libperl-minimumversion-perl, libtest-minimumversion-perl,
Modified: trunk/libaspect-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/inc/Module/Install.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/inc/Module/Install.pm (original)
+++ trunk/libaspect-perl/inc/Module/Install.pm Mon Feb 15 22:56:29 2010
@@ -28,7 +28,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.92';
+ $VERSION = '0.93';
# Storage for the pseudo-singleton
$MAIN = undef;
Modified: trunk/libaspect-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/inc/Module/Install/Base.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libaspect-perl/inc/Module/Install/Base.pm Mon Feb 15 22:56:29 2010
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.93';
}
# Suspend handler for "redefined" warnings
Modified: trunk/libaspect-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/inc/Module/Install/Can.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libaspect-perl/inc/Module/Install/Can.pm Mon Feb 15 22:56:29 2010
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.93';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libaspect-perl/inc/Module/Install/DSL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/inc/Module/Install/DSL.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/inc/Module/Install/DSL.pm (original)
+++ trunk/libaspect-perl/inc/Module/Install/DSL.pm Mon Feb 15 22:56:29 2010
@@ -4,7 +4,7 @@
use strict;
use vars qw{$VERSION $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.93';
$ISCORE = 1;
*inc::Module::Install::DSL::VERSION = *VERSION;
@inc::Module::Install::DSL::ISA = __PACKAGE__;
@@ -39,9 +39,11 @@
}
# Convert the basic syntax to code
- my $code = "package main;\n\n"
+ my $code = "INIT {\n"
+ . "package main;\n\n"
. dsl2code($dsl)
- . "\n\nWriteAll();\n";
+ . "\n\nWriteAll();\n"
+ . "}\n";
# Execute the script
eval $code;
Modified: trunk/libaspect-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/inc/Module/Install/Fetch.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libaspect-perl/inc/Module/Install/Fetch.pm Mon Feb 15 22:56:29 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.93';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libaspect-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/inc/Module/Install/Makefile.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libaspect-perl/inc/Module/Install/Makefile.pm Mon Feb 15 22:56:29 2010
@@ -7,7 +7,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.93';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -118,6 +118,9 @@
%test_dir = ();
require File::Find;
File::Find::find( \&_wanted_t, $dir );
+ if ( -d 'xt' and ($ENV{RELEASE_TESTING} or $self->author) ) {
+ File::Find::find( \&_wanted_t, 'xt' );
+ }
$self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
}
@@ -157,15 +160,21 @@
$args->{NAME} = $self->module_name || $self->name;
$args->{VERSION} = $self->version;
$args->{NAME} =~ s/-/::/g;
+ $DB::single = 1;
if ( $self->tests ) {
$args->{test} = { TESTS => $self->tests };
+ } elsif ( -d 'xt' and ($self->author or $ENV{RELEASE_TESTING}) ) {
+ $args->{test} = {
+ TESTS => join( ' ', map { "$_/*.t" } grep { -d $_ } qw{ t xt } ),
+ };
}
if ( $] >= 5.005 ) {
$args->{ABSTRACT} = $self->abstract;
$args->{AUTHOR} = $self->author;
}
if ( $self->makemaker(6.10) ) {
- $args->{NO_META} = 1;
+ $args->{NO_META} = 1;
+ #$args->{NO_MYMETA} = 1;
}
if ( $self->makemaker(6.17) and $self->sign ) {
$args->{SIGN} = 1;
@@ -297,4 +306,4 @@
__END__
-#line 426
+#line 435
Modified: trunk/libaspect-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/inc/Module/Install/Metadata.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libaspect-perl/inc/Module/Install/Metadata.pm Mon Feb 15 22:56:29 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.93';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -230,7 +230,7 @@
die("The path '$file' does not exist, or is not a file");
}
- $self->{values}{all_from} = $file;
+ $self->{values}{all_from} = $file;
# Some methods pull from POD instead of code.
# If there is a matching .pod, use that instead
@@ -451,6 +451,7 @@
my @phrases = (
'under the same (?:terms|license) as (?:perl|the perl programming language)' => 'perl', 1,
'under the terms of (?:perl|the perl programming language) itself' => 'perl', 1,
+ 'Artistic and GPL' => 'perl', 1,
'GNU general public license' => 'gpl', 1,
'GNU public license' => 'gpl', 1,
'GNU lesser general public license' => 'lgpl', 1,
Modified: trunk/libaspect-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/inc/Module/Install/Win32.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libaspect-perl/inc/Module/Install/Win32.pm Mon Feb 15 22:56:29 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.93';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libaspect-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/inc/Module/Install/WriteAll.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libaspect-perl/inc/Module/Install/WriteAll.pm Mon Feb 15 22:56:29 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';;
+ $VERSION = '0.93';;
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libaspect-perl/lib/Aspect.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect.pm (original)
+++ trunk/libaspect-perl/lib/Aspect.pm Mon Feb 15 22:56:29 2010
@@ -10,7 +10,6 @@
use Carp::Heavy ();
use Carp ();
use Params::Util 1.00 ();
-use Devel::Symdump 2.04 ();
use Sub::Install 0.92 ();
use Sub::Uplevel 0.2002 ();
use Aspect::Pointcut ();
@@ -32,7 +31,7 @@
use Aspect::Advice::AfterThrowing ();
use Aspect::AdviceContext ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
# Track the location of exported functions so that pointcuts
# can avoid accidentally binding them.
Modified: trunk/libaspect-perl/lib/Aspect/Advice.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice.pm Mon Feb 15 22:56:29 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.43';
+our $VERSION = '0.44';
sub new {
my $class = shift;
Modified: trunk/libaspect-perl/lib/Aspect/Advice/After.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice/After.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/After.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/After.pm Mon Feb 15 22:56:29 2010
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Context::After ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Advice';
# NOTE: To simplify debugging of the generated code, all injected string
Modified: trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/AfterReturning.pm Mon Feb 15 22:56:29 2010
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Context::AfterReturning ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Advice';
# NOTE: To simplify debugging of the generated code, all injected string
Modified: trunk/libaspect-perl/lib/Aspect/Advice/AfterThrowing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice/AfterThrowing.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/AfterThrowing.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/AfterThrowing.pm Mon Feb 15 22:56:29 2010
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Context::AfterThrowing ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Advice';
# NOTE: To simplify debugging of the generated code, all injected string
Modified: trunk/libaspect-perl/lib/Aspect/Advice/Around.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice/Around.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/Around.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/Around.pm Mon Feb 15 22:56:29 2010
@@ -12,7 +12,7 @@
use Aspect::Advice ();
use Aspect::Context::Around ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Advice';
sub _install {
Modified: trunk/libaspect-perl/lib/Aspect/Advice/Before.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Advice/Before.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Advice/Before.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Advice/Before.pm Mon Feb 15 22:56:29 2010
@@ -11,7 +11,7 @@
use Aspect::Advice ();
use Aspect::Context::Before ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Advice';
sub _install {
Modified: trunk/libaspect-perl/lib/Aspect/AdviceContext.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/AdviceContext.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/AdviceContext.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/AdviceContext.pm Mon Feb 15 22:56:29 2010
@@ -5,7 +5,7 @@
use Carp ();
use Sub::Uplevel ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
Modified: trunk/libaspect-perl/lib/Aspect/Context.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Context.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Context.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Context.pm Mon Feb 15 22:56:29 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::AdviceContext ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::AdviceContext';
1;
Modified: trunk/libaspect-perl/lib/Aspect/Context/After.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Context/After.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Context/After.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Context/After.pm Mon Feb 15 22:56:29 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Context ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Context';
1;
Modified: trunk/libaspect-perl/lib/Aspect/Context/AfterReturning.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Context/AfterReturning.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Context/AfterReturning.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Context/AfterReturning.pm Mon Feb 15 22:56:29 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Context ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Context';
1;
Modified: trunk/libaspect-perl/lib/Aspect/Context/AfterThrowing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Context/AfterThrowing.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Context/AfterThrowing.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Context/AfterThrowing.pm Mon Feb 15 22:56:29 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Context ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Context';
1;
Modified: trunk/libaspect-perl/lib/Aspect/Context/Around.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Context/Around.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Context/Around.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Context/Around.pm Mon Feb 15 22:56:29 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Context ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Context';
1;
Modified: trunk/libaspect-perl/lib/Aspect/Context/Before.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Context/Before.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Context/Before.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Context/Before.pm Mon Feb 15 22:56:29 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Context ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Context';
1;
Modified: trunk/libaspect-perl/lib/Aspect/Hook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Hook.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Hook.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Hook.pm Mon Feb 15 22:56:29 2010
@@ -5,6 +5,6 @@
use strict;
-our $VERSION = '0.43';
+our $VERSION = '0.44';
1;
Modified: trunk/libaspect-perl/lib/Aspect/Library.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library.pm Mon Feb 15 22:56:29 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Modular ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Modular';
1;
Modified: trunk/libaspect-perl/lib/Aspect/Library/Breakpoint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/Breakpoint.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Breakpoint.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Breakpoint.pm Mon Feb 15 22:56:29 2010
@@ -5,7 +5,7 @@
use Aspect::Modular ();
use Aspect::Advice::Before ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Modular';
sub get_advice {
Modified: trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Listenable.pm Mon Feb 15 22:56:29 2010
@@ -12,7 +12,7 @@
use Aspect::Advice::Before ();
use Aspect::Library::Listenable::Event ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = qw{ Aspect::Modular };
sub import {
Modified: trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Listenable/Event.pm Mon Feb 15 22:56:29 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.43';
+our $VERSION = '0.44';
sub new {
my $class = shift;
Modified: trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Singleton.pm Mon Feb 15 22:56:29 2010
@@ -6,7 +6,7 @@
use Aspect::Advice::Before ();
use Aspect::Pointcut::Call ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Modular';
my %CACHE = ();
Modified: trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Library/Wormhole.pm Mon Feb 15 22:56:29 2010
@@ -8,7 +8,7 @@
use Aspect::Pointcut::Cflow ();
use Aspect::Pointcut::And ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Modular';
sub get_advice {
Modified: trunk/libaspect-perl/lib/Aspect/Modular.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Modular.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Modular.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Modular.pm Mon Feb 15 22:56:29 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.43';
+our $VERSION = '0.44';
sub new {
my $class = shift;
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut.pm Mon Feb 15 22:56:29 2010
@@ -2,12 +2,11 @@
use strict;
use warnings;
-use Devel::Symdump ();
use Aspect::Pointcut::Or ();
use Aspect::Pointcut::And ();
use Aspect::Pointcut::Not ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
use overload (
# Keep traditional Perl boolification and stringification
@@ -41,16 +40,25 @@
######################################################################
# Weaving Methods
-my %UNTOUCHABLE;
+my %PRUNE;
+my %IGNORE;
BEGIN {
- %UNTOUCHABLE = map { $_ => 1 } qw(
+ # Classes we should not recurse down into
+ %PRUNE = map { $_ => 1 } qw{
+ main
+ CORE
+ DB
+ Aspect
+ };
+
+ # Classes we should not hook functions in
+ %IGNORE = map { $_ => 1 } qw{
+ Aspect
Carp
Carp::Heavy
Config
CORE
- CORE::GLOBAL
DB
- DB::fake
DynaLoader
Exporter
Exporter::Heavy
@@ -67,7 +75,7 @@
strict
warnings
warnings::register
- );
+ };
}
sub match_runtime {
@@ -79,17 +87,58 @@
my $self = shift;
my @matches = ();
- # Temporary hack to avoid a ton of warnings.
- # Remove when Devel::Symdump stops throwing warnings.
- local $^W = 0;
-
- foreach my $package ( Devel::Symdump->rnew->packages, 'main' ) {
- next if $UNTOUCHABLE{$package};
- next if $package =~ /^Aspect\b/;
- foreach my $name ( Devel::Symdump->new($package)->functions ) {
- # Filter Aspect exportable functions
- next if $Aspect::EXPORTED{$name};
- push @matches, $name if $self->match_define($name);
+ # Quick initial root package scan to remove the need
+ # for special-casing of main:: in the recursive scan.
+ no strict 'refs';
+ my @search = ();
+ my ($key,$value);
+ while ( ($key,$value) = each %{*{"::"}} ) {
+ local (*ENTRY) = $value;
+ next unless defined $value;
+ next unless $key =~ s/^([^\W\d]\w*)::\z/$1/;
+ next unless defined *ENTRY{HASH};
+
+ # Suppress aggressively ignored things
+ if ( $IGNORE{$key} and $PRUNE{$key} ) {
+ next;
+ }
+
+ push @search, $key;
+ }
+
+ # Search using a simple package list-recursion
+ while ( my $package = shift @search ) {
+ no strict 'refs';
+ my ($key,$value);
+ while ( ($key,$value) = each %{*{"$package\::"}} ) {
+ next unless $key =~ /^\w+(?:::)?\z/;
+ next unless defined $value;
+ my $name = "$package\::$key";
+ local(*ENTRY) = $value;
+
+ # Is this a matched function?
+ if (
+ defined *ENTRY{CODE}
+ and
+ not $IGNORE{$package}
+ and
+ not $Aspect::EXPORTED{$name}
+ and
+ $self->match_define($name)
+ ) {
+ push @matches, $name;
+ }
+
+ # Is this a package we should recurse into?
+ if (
+ not $PRUNE{$package}
+ and
+ $name =~ s/::\z//
+ and
+ defined *ENTRY{HASH}
+ ) {
+ push @search, $name;
+ }
}
}
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/And.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/And.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/And.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/And.pm Mon Feb 15 22:56:29 2010
@@ -5,7 +5,7 @@
use Aspect::Pointcut ();
use Aspect::Pointcut::Logic ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = qw{
Aspect::Pointcut::Logic
Aspect::Pointcut
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Call.pm Mon Feb 15 22:56:29 2010
@@ -6,7 +6,7 @@
use Params::Util ();
use Aspect::Pointcut ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Pointcut';
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Cflow.pm Mon Feb 15 22:56:29 2010
@@ -8,7 +8,7 @@
use Aspect::Pointcut::Call ();
use Aspect::AdviceContext ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Pointcut';
use constant KEY => 0;
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/Highest.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Highest.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Highest.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Highest.pm Mon Feb 15 22:56:29 2010
@@ -6,7 +6,7 @@
use Params::Util ();
use Aspect::Pointcut ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Pointcut';
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/If.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/If.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/If.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/If.pm Mon Feb 15 22:56:29 2010
@@ -4,7 +4,7 @@
use warnings;
use Aspect::Pointcut ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Pointcut';
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/Logic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Logic.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Logic.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Logic.pm Mon Feb 15 22:56:29 2010
@@ -5,7 +5,7 @@
use strict;
use warnings;
-our $VERSION = '0.43';
+our $VERSION = '0.44';
sub match_runtime {
return 0;
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/Not.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Not.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Not.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Not.pm Mon Feb 15 22:56:29 2010
@@ -5,7 +5,7 @@
use Aspect::Pointcut ();
use Aspect::Pointcut::Logic ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = qw{
Aspect::Pointcut::Logic
Aspect::Pointcut
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/Or.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Or.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Or.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Or.pm Mon Feb 15 22:56:29 2010
@@ -5,7 +5,7 @@
use Aspect::Pointcut ();
use Aspect::Pointcut::Logic ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = qw{
Aspect::Pointcut::Logic
Aspect::Pointcut
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/Throwing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Throwing.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Throwing.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Throwing.pm Mon Feb 15 22:56:29 2010
@@ -6,7 +6,7 @@
use Params::Util ('_STRING', '_INSTANCE');
use Aspect::Pointcut ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Pointcut';
Modified: trunk/libaspect-perl/lib/Aspect/Pointcut/Wantarray.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/lib/Aspect/Pointcut/Wantarray.pm?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/lib/Aspect/Pointcut/Wantarray.pm (original)
+++ trunk/libaspect-perl/lib/Aspect/Pointcut/Wantarray.pm Mon Feb 15 22:56:29 2010
@@ -5,7 +5,7 @@
use Carp ();
use Aspect::Pointcut ();
-our $VERSION = '0.43';
+our $VERSION = '0.44';
our @ISA = 'Aspect::Pointcut';
use constant VOID => 1;
Modified: trunk/libaspect-perl/xt/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaspect-perl/xt/pod.t?rev=52851&op=diff
==============================================================================
--- trunk/libaspect-perl/xt/pod.t (original)
+++ trunk/libaspect-perl/xt/pod.t Mon Feb 15 22:56:29 2010
@@ -1,7 +1,32 @@
-#!perl -w
+#!/usr/bin/perl
+
+# Test that the syntax of our POD documentation is valid
use strict;
-use warnings;
-use Test::Pod;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my @MODULES = (
+ 'Pod::Simple 3.07',
+ 'Test::Pod 1.26',
+);
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing modules
+foreach my $MODULE ( @MODULES ) {
+ eval "use $MODULE";
+ if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+ }
+}
all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list