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