r15062 - in /trunk/libsub-uplevel-perl: Build.PL Changes INSTALL LICENSE MANIFEST META.yml Makefile.PL README Todo debian/changelog inc/ lib/Sub/Uplevel.pm lib/Sub/Uplevel.pod t/06_db_args.t t/98_pod.t t/99_pod_coverage.t xt/
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sun Feb 17 15:22:18 UTC 2008
Author: gregoa-guest
Date: Sun Feb 17 15:22:17 2008
New Revision: 15062
URL: http://svn.debian.org/wsvn/?sc=1&rev=15062
Log:
New upstream release.
Added:
trunk/libsub-uplevel-perl/INSTALL
- copied unchanged from r15061, branches/upstream/libsub-uplevel-perl/current/INSTALL
trunk/libsub-uplevel-perl/LICENSE
- copied unchanged from r15061, branches/upstream/libsub-uplevel-perl/current/LICENSE
trunk/libsub-uplevel-perl/Todo
- copied unchanged from r15061, branches/upstream/libsub-uplevel-perl/current/Todo
trunk/libsub-uplevel-perl/inc/
- copied from r15061, branches/upstream/libsub-uplevel-perl/current/inc/
trunk/libsub-uplevel-perl/lib/Sub/Uplevel.pod
- copied unchanged from r15061, branches/upstream/libsub-uplevel-perl/current/lib/Sub/Uplevel.pod
trunk/libsub-uplevel-perl/t/06_db_args.t
- copied unchanged from r15061, branches/upstream/libsub-uplevel-perl/current/t/06_db_args.t
trunk/libsub-uplevel-perl/xt/
- copied from r15061, branches/upstream/libsub-uplevel-perl/current/xt/
Removed:
trunk/libsub-uplevel-perl/t/98_pod.t
trunk/libsub-uplevel-perl/t/99_pod_coverage.t
Modified:
trunk/libsub-uplevel-perl/Build.PL
trunk/libsub-uplevel-perl/Changes
trunk/libsub-uplevel-perl/MANIFEST
trunk/libsub-uplevel-perl/META.yml
trunk/libsub-uplevel-perl/Makefile.PL
trunk/libsub-uplevel-perl/README
trunk/libsub-uplevel-perl/debian/changelog
trunk/libsub-uplevel-perl/lib/Sub/Uplevel.pm
Modified: trunk/libsub-uplevel-perl/Build.PL
URL: http://svn.debian.org/wsvn/trunk/libsub-uplevel-perl/Build.PL?rev=15062&op=diff
==============================================================================
--- trunk/libsub-uplevel-perl/Build.PL (original)
+++ trunk/libsub-uplevel-perl/Build.PL Sun Feb 17 15:22:17 2008
@@ -1,13 +1,30 @@
-use Module::Build;
-# See perldoc Module::Build for details of how this works
-
-Module::Build->new(
- module_name => 'Sub::Uplevel',
- dist_author => 'David A. Golden <dagolden at cpan.org>',
- license => 'perl',
- create_readme => 1,
- create_makefile_pl => 'traditional',
- requires => {
- Test::More => 0.47,
- },
-)->create_build_script;
+use strict;
+use lib 'inc';
+eval "require Pod::WikiDoc";
+my $class = $@ ? "Module::Build" : "Module::Build::WikiDoc";
+eval "require $class";
+
+$class->new(
+ module_name => 'Sub::Uplevel',
+ dist_author => 'David A. Golden <dagolden at cpan.org>',
+ license => 'perl',
+ create_readme => 1,
+ create_makefile_pl => 'traditional',
+ requires => {
+ 'Exporter' => 0,
+ },
+ build_requires => {
+ 'Carp' => 0,
+ 'Test::More' => 0.47,
+ },
+ meta_add => {
+ no_index => {
+ package => [ 'DB' ],
+ directory => [ qw{
+ examples
+ inc
+ }],
+ }
+ },
+)->create_build_script;
+
Modified: trunk/libsub-uplevel-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libsub-uplevel-perl/Changes?rev=15062&op=diff
==============================================================================
--- trunk/libsub-uplevel-perl/Changes (original)
+++ trunk/libsub-uplevel-perl/Changes Sun Feb 17 15:22:17 2008
@@ -1,4 +1,16 @@
Changes for Sub::Uplevel
+
+0.1901 Thu Feb 14 14:07:37 EST 2008
+
+ - hides the "DB" package from indexers (DB used to support @DB::args)
+
+0.19 Thu Feb 14 11:50:16 EST 2008
+
+ - bug fix: replacement caller() correctly sets @DB::args if calling
+ package is DB
+
+ - repackaging: custom Build.PL, moved all author tests to xt/, added
+ LICENSE and INSTALL files
0.18 Wed Oct 31 06:56:13 EDT 2007
- release version of 0.17_01 changes
Modified: trunk/libsub-uplevel-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libsub-uplevel-perl/MANIFEST?rev=15062&op=diff
==============================================================================
--- trunk/libsub-uplevel-perl/MANIFEST (original)
+++ trunk/libsub-uplevel-perl/MANIFEST Sun Feb 17 15:22:17 2008
@@ -1,7 +1,11 @@
Build.PL
Changes
examples/uplevel-demo.pl
+inc/Module/Build/WikiDoc.pm
+INSTALL
lib/Sub/Uplevel.pm
+lib/Sub/Uplevel.pod
+LICENSE
Makefile.PL
MANIFEST
MANIFEST.SKIP
@@ -12,6 +16,12 @@
t/03_nested_uplevels.t
t/04_honor_later_override.t
t/05_honor_prior_override.t
-t/98_pod.t
-t/99_pod_coverage.t
+t/06_db_args.t
t/lib/Foo.pm
+Todo
+xt/critic.t
+xt/perlcriticrc
+xt/pod-coverage.t
+xt/pod.t
+xt/spelling.t
+xt/stopwords.txt
Modified: trunk/libsub-uplevel-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libsub-uplevel-perl/META.yml?rev=15062&op=diff
==============================================================================
--- trunk/libsub-uplevel-perl/META.yml (original)
+++ trunk/libsub-uplevel-perl/META.yml Sun Feb 17 15:22:17 2008
@@ -1,6 +1,6 @@
---
name: Sub-Uplevel
-version: 0.18
+version: 0.1901
author:
- 'David A. Golden <dagolden at cpan.org>'
abstract: apparently run a function in a higher stack frame
@@ -8,12 +8,23 @@
resources:
license: http://dev.perl.org/licenses/
requires:
+ Exporter: 0
+build_requires:
+ Carp: 0
Test::More: 0.47
provides:
+ DB:
+ file: lib/Sub/Uplevel.pm
Sub::Uplevel:
file: lib/Sub/Uplevel.pm
- version: 0.18
-generated_by: Module::Build version 0.2808
+ version: 0.1901
+generated_by: Module::Build version 0.280801
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
+no_index:
+ directory:
+ - examples
+ - inc
+ package:
+ - DB
Modified: trunk/libsub-uplevel-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libsub-uplevel-perl/Makefile.PL?rev=15062&op=diff
==============================================================================
--- trunk/libsub-uplevel-perl/Makefile.PL (original)
+++ trunk/libsub-uplevel-perl/Makefile.PL Sun Feb 17 15:22:17 2008
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
+# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
use ExtUtils::MakeMaker;
WriteMakefile
(
@@ -8,7 +8,9 @@
'EXE_FILES' => [],
'VERSION_FROM' => 'lib/Sub/Uplevel.pm',
'PREREQ_PM' => {
- 'Test::More' => '0.47'
+ 'Test::More' => '0.47',
+ 'Exporter' => 0,
+ 'Carp' => 0
}
)
;
Modified: trunk/libsub-uplevel-perl/README
URL: http://svn.debian.org/wsvn/trunk/libsub-uplevel-perl/README?rev=15062&op=diff
==============================================================================
--- trunk/libsub-uplevel-perl/README (original)
+++ trunk/libsub-uplevel-perl/README Sun Feb 17 15:22:17 2008
@@ -2,7 +2,7 @@
Sub::Uplevel - apparently run a function in a higher stack frame
VERSION
- This documentation describes version 0.18
+ This documentation describes version 0.1901
SYNOPSIS
use Sub::Uplevel;
@@ -96,7 +96,7 @@
LICENSE
Original code Copyright (c) 2001 to 2007 by Michael G Schwern.
- Additional code Copyright (c) 2006 to 2007 by David A Golden.
+ Additional code Copyright (c) 2006 to 2008 by David A Golden.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: trunk/libsub-uplevel-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libsub-uplevel-perl/debian/changelog?rev=15062&op=diff
==============================================================================
--- trunk/libsub-uplevel-perl/debian/changelog (original)
+++ trunk/libsub-uplevel-perl/debian/changelog Sun Feb 17 15:22:17 2008
@@ -1,10 +1,11 @@
-libsub-uplevel-perl (0.18-2) UNRELEASED; urgency=low
+libsub-uplevel-perl (0.1901-1) UNRELEASED; urgency=low
+ * New upstream release.
* debian/watch:
- add uversionmangle to deal with 2/4-digits upstream versions
- extend regexp for mathing upstream tarballs.
- -- gregor herrmann <gregor+debian at comodo.priv.at> Sun, 17 Feb 2008 16:18:09 +0100
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Sun, 17 Feb 2008 16:20:48 +0100
libsub-uplevel-perl (0.18-1) unstable; urgency=low
Modified: trunk/libsub-uplevel-perl/lib/Sub/Uplevel.pm
URL: http://svn.debian.org/wsvn/trunk/libsub-uplevel-perl/lib/Sub/Uplevel.pm?rev=15062&op=diff
==============================================================================
--- trunk/libsub-uplevel-perl/lib/Sub/Uplevel.pm (original)
+++ trunk/libsub-uplevel-perl/lib/Sub/Uplevel.pm Sun Feb 17 15:22:17 2008
@@ -2,7 +2,7 @@
use strict;
use vars qw($VERSION @ISA @EXPORT);
-$VERSION = '0.18';
+$VERSION = '0.1901';
# We must override *CORE::GLOBAL::caller if it hasn't already been
# overridden or else Perl won't see our local override later.
@@ -19,9 +19,13 @@
Sub::Uplevel - apparently run a function in a higher stack frame
-=head1 VERSION
-
-This documentation describes version 0.18
+=begin wikidoc
+
+= VERSION
+
+This documentation describes version %%VERSION%%
+
+=end wikidoc
=head1 SYNOPSIS
@@ -102,18 +106,30 @@
return $func->(@args);
}
-sub _normal_caller (;$) {
+sub _normal_caller (;$) { ## no critic Prototypes
my $height = $_[0];
$height++;
- if( wantarray and !@_ ) {
- return (CORE::caller($height))[0..2];
+ if ( CORE::caller() eq 'DB' ) {
+ # passthrough the @DB::args trick
+ package DB;
+ if( wantarray and !@_ ) {
+ return (CORE::caller($height))[0..2];
+ }
+ else {
+ return CORE::caller($height);
+ }
}
else {
- return CORE::caller($height);
+ if( wantarray and !@_ ) {
+ return (CORE::caller($height))[0..2];
+ }
+ else {
+ return CORE::caller($height);
+ }
}
}
-sub _uplevel_caller (;$) {
+sub _uplevel_caller (;$) { ## no critic Prototypes
my $height = $_[0] || 0;
# shortcut if no uplevels have been called
@@ -193,7 +209,15 @@
# For returning values, we pass through the call to the proxy caller
# function, just at a higher stack level
- my @caller = $Caller_Proxy->($height + $adjust + 1);
+ my @caller;
+ if ( CORE::caller() eq 'DB' ) {
+ # passthrough the @DB::args trick
+ package DB;
+ @caller = $Sub::Uplevel::Caller_Proxy->($height + $adjust + 1);
+ }
+ else {
+ @caller = $Caller_Proxy->($height + $adjust + 1);
+ }
if( wantarray ) {
if( !@_ ) {
@@ -259,7 +283,7 @@
=head1 LICENSE
Original code Copyright (c) 2001 to 2007 by Michael G Schwern.
-Additional code Copyright (c) 2006 to 2007 by David A Golden.
+Additional code Copyright (c) 2006 to 2008 by David A Golden.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
More information about the Pkg-perl-cvs-commits
mailing list