r11832 - in /trunk/libdevel-caller-perl: ./ debian/ lib/Devel/ t/
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Sat Dec 29 07:31:39 UTC 2007
Author: tincho-guest
Date: Sat Dec 29 07:31:38 2007
New Revision: 11832
URL: http://svn.debian.org/wsvn/?sc=1&rev=11832
Log:
* New upstream release.
* debian/control:
- bumped Standards-Version (no changes).
- removed libmodule-build-perl dependency (the module now uses MakeMaker).
* debian/watch: removed unneeded comment, changed URL to match dist/ page.
* debian/copyright: converted to new format, updated copyright info.
* debian/rules: mostly rewritten, because of the switch to MakeMaker and
some incorrect debhelper invocations.
Added:
trunk/libdevel-caller-perl/._Caller.xs
- copied unchanged from r11828, branches/upstream/libdevel-caller-perl/current/._Caller.xs
trunk/libdevel-caller-perl/._Changes
- copied unchanged from r11828, branches/upstream/libdevel-caller-perl/current/._Changes
trunk/libdevel-caller-perl/Caller.xs
- copied unchanged from r11828, branches/upstream/libdevel-caller-perl/current/Caller.xs
trunk/libdevel-caller-perl/lib/Devel/._Caller.pm
- copied unchanged from r11828, branches/upstream/libdevel-caller-perl/current/lib/Devel/._Caller.pm
Removed:
trunk/libdevel-caller-perl/Build.PL
trunk/libdevel-caller-perl/README
trunk/libdevel-caller-perl/lib/Devel/Caller.xs
Modified:
trunk/libdevel-caller-perl/Changes
trunk/libdevel-caller-perl/MANIFEST
trunk/libdevel-caller-perl/META.yml
trunk/libdevel-caller-perl/Makefile.PL
trunk/libdevel-caller-perl/debian/changelog
trunk/libdevel-caller-perl/debian/control
trunk/libdevel-caller-perl/debian/copyright
trunk/libdevel-caller-perl/debian/rules
trunk/libdevel-caller-perl/debian/watch
trunk/libdevel-caller-perl/lib/Devel/Caller.pm
trunk/libdevel-caller-perl/t/Devel-Caller.t
Modified: trunk/libdevel-caller-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libdevel-caller-perl/Changes?rev=11832&op=diff
==============================================================================
--- trunk/libdevel-caller-perl/Changes (original)
+++ trunk/libdevel-caller-perl/Changes Sat Dec 29 07:31:38 2007
@@ -1,3 +1,15 @@
+2.02 Friday 28th December, 2007
+ Make use of INT2PTR macro for great justice! (or 64-bit stuff,
+ it's hard to tell)
+
+2.01 Thursday 27th December, 2007
+ Translated the XS and C into perl using B. Though the perl looks
+ much like C this gives a chance to make it more perlish in the future.
+ There's a tiny bit of XS left to expose some internals to perl space.
+
+ Dropped compatibilty for older perls (PadWalker doesn't work
+ there anyway)
+
0.11 Sunday 9th July, 2006
Fudge around the segfaults in 5.8.x ithreaded builds by
not looking up what the package variable is.
Modified: trunk/libdevel-caller-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libdevel-caller-perl/MANIFEST?rev=11832&op=diff
==============================================================================
--- trunk/libdevel-caller-perl/MANIFEST (original)
+++ trunk/libdevel-caller-perl/MANIFEST Sat Dec 29 07:31:38 2007
@@ -1,9 +1,7 @@
-README
MANIFEST
-META.yml
Changes
-Build.PL
Makefile.PL
lib/Devel/Caller.pm
-lib/Devel/Caller.xs
+Caller.xs
t/Devel-Caller.t
+META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libdevel-caller-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libdevel-caller-perl/META.yml?rev=11832&op=diff
==============================================================================
--- trunk/libdevel-caller-perl/META.yml (original)
+++ trunk/libdevel-caller-perl/META.yml Sat Dec 29 07:31:38 2007
@@ -1,21 +1,12 @@
----
-name: Devel-Caller
-version: 0.11
-author:
- - |-
- Richard Clamp <richardc at unixbeard.net> with close reference to
- PadWalker by Robin Houston
-abstract: meatier versions of C<caller>
-license: perl
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: Devel-Caller
+version: 2.02
+version_from: lib/Devel/Caller.pm
+installdirs: site
requires:
- PadWalker: 0.08
-build_requires:
- Test::More: 0
-provides:
- DB:
- file: lib/Devel/Caller.pm
- version: 0.11
- Devel::Caller:
- file: lib/Devel/Caller.pm
- version: 0.11
-generated_by: Module::Build version 0.25
+ PadWalker: 0.08
+ Test::More: 0
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30
Modified: trunk/libdevel-caller-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libdevel-caller-perl/Makefile.PL?rev=11832&op=diff
==============================================================================
--- trunk/libdevel-caller-perl/Makefile.PL (original)
+++ trunk/libdevel-caller-perl/Makefile.PL Sat Dec 29 07:31:38 2007
@@ -1,31 +1,12 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
-
- unless (eval "use Module::Build::Compat 0.02; 1" ) {
- print "This module requires Module::Build to install itself.\n";
-
- require ExtUtils::MakeMaker;
- my $yn = ExtUtils::MakeMaker::prompt
- (' Install Module::Build now from CPAN?', 'y');
-
- unless ($yn =~ /^y/i) {
- die " *** Cannot install without Module::Build. Exiting ...\n";
- }
-
- require Cwd;
- require File::Spec;
- require CPAN;
-
- # Save this 'cause CPAN will chdir all over the place.
- my $cwd = Cwd::cwd();
- my $makefile = File::Spec->rel2abs($0);
-
- CPAN::Shell->install('Module::Build::Compat')
- or die " *** Cannot install without Module::Build. Exiting ...\n";
-
- chdir $cwd or die "Cannot chdir() back to $cwd: $!";
- exec $^X, $makefile, @ARGV; # Redo now that we have Module::Build
+#!perl
+use strict;
+use warnings;
+use ExtUtils::MakeMaker;
+WriteMakefile(
+ 'NAME' => 'Devel::Caller',
+ 'VERSION_FROM' => 'lib/Devel/Caller.pm',
+ 'PREREQ_PM' => {
+ 'Test::More' => 0,
+ 'PadWalker' => '0.08'
}
- use lib '_build/lib';
- Module::Build::Compat->run_build_pl(args => \@ARGV);
- require Module::Build;
- Module::Build::Compat->write_makefile(build_class => 'Module::Build');
+);
Modified: trunk/libdevel-caller-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libdevel-caller-perl/debian/changelog?rev=11832&op=diff
==============================================================================
--- trunk/libdevel-caller-perl/debian/changelog (original)
+++ trunk/libdevel-caller-perl/debian/changelog Sat Dec 29 07:31:38 2007
@@ -1,4 +1,4 @@
-libdevel-caller-perl (0.11-2) UNRELEASED; urgency=low
+libdevel-caller-perl (2.02-1) unstable; urgency=low
[ gregor herrmann ]
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
@@ -12,7 +12,17 @@
[ Damyan Ivanov ]
* [debian/watch] Stop capturing file extension
- -- Damyan Ivanov <dmn at debian.org> Tue, 06 Nov 2007 11:01:22 +0200
+ [ MartÃn Ferrari ]
+ * New upstream release.
+ * debian/control:
+ - bumped Standards-Version (no changes).
+ - removed libmodule-build-perl dependency (the module now uses MakeMaker).
+ * debian/watch: removed unneeded comment, changed URL to match dist/ page.
+ * debian/copyright: converted to new format, updated copyright info.
+ * debian/rules: mostly rewritten, because of the switch to MakeMaker and
+ some incorrect debhelper invocations.
+
+ -- MartÃn Ferrari <martin.ferrari at gmail.com> Sat, 29 Dec 2007 04:31:13 -0300
libdevel-caller-perl (0.11-1) unstable; urgency=low
Modified: trunk/libdevel-caller-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libdevel-caller-perl/debian/control?rev=11832&op=diff
==============================================================================
--- trunk/libdevel-caller-perl/debian/control (original)
+++ trunk/libdevel-caller-perl/debian/control Sat Dec 29 07:31:38 2007
@@ -1,17 +1,19 @@
Source: libdevel-caller-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 5.0.0), libmodule-build-perl, perl (>= 5.8.8-7), libpadwalker-perl (>= 0.08)
+Build-Depends: debhelper (>= 5.0.0), perl (>= 5.8.8-7),
+ libpadwalker-perl (>= 0.08)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Alexis Sukrieh <sukria at debian.org>
-Standards-Version: 3.7.2
+Standards-Version: 3.7.3
Homepage: http://search.cpan.org/dist/Devel-Caller/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdevel-caller-perl/
Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-caller-perl/
Package: libdevel-caller-perl
Architecture: any
-Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends}, libpadwalker-perl (>= 0.08)
+Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends},
+ libpadwalker-perl (>= 0.08)
Description: Perl module for enhancing the caller() function
Devel::Caller provides four functions for introspecting your code deeper than
the internal function "caller()" does.
Modified: trunk/libdevel-caller-perl/debian/copyright
URL: http://svn.debian.org/wsvn/trunk/libdevel-caller-perl/debian/copyright?rev=11832&op=diff
==============================================================================
--- trunk/libdevel-caller-perl/debian/copyright (original)
+++ trunk/libdevel-caller-perl/debian/copyright Sat Dec 29 07:31:38 2007
@@ -1,19 +1,28 @@
This is the debian package for the Devel-Caller module.
It was created by Alexis Sukrieh <sukria at debian.org> using dh-make-perl.
-It was downloaded from http://www.cpan.org/authors/id/R/RC/RCLAMP/Devel-Caller-0.11.tar.gz
+It was downloaded from http://search.cpan.org/dist/Devel-Caller/.
-The upstream author is: Richard Clamp <richardc at unixbeard.net> with close reference to
-PadWalker by Robin Houston.
+The upstream author is:
+ Richard Clamp <richardc at unixbeard.net> with close reference to PadWalker by
+ Robin Houston.
-Copyright (c) 2002, 2003, 2006 Richard Clamp. All Rights Reserved.
-This module is free software. It may be used, redistributed and/or
-modified under the same terms as Perl itself.
+Files: *
+Copyright: © 2002, 2003, 2006, 2007 Richard Clamp.
+License: Artistic | GPL-1+
+ All Rights Reserved. This module is free software. It may be used,
+ redistributed and/or modified under the same terms as Perl itself.
Perl is distributed under your choice of the GNU General Public License or
the Artistic License. On Debian GNU/Linux systems, the complete text of the
GNU General Public License can be found in `/usr/share/common-licenses/GPL'
and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
-The Debian packaging is (C) 2007, Alexis Sukrieh <sukria at debian.org> and
-is licensed under the same terms as the software itself (see above).
+Files: debian/*
+Copyright: © 2007 MartÃn Ferrari <martin.ferrari at gmail.com>
+ © 2007 gregor herrmann <gregor+debian at comodo.priv.at>
+ © 2007 Damyan Ivanov <dmn at debian.org>
+ © 2007 Alexis Sukrieh <sukria at debian.org>
+License: Artistic | GPL-1+
+ This module is licensed under the same terms as the software itself (see
+ above).
Modified: trunk/libdevel-caller-perl/debian/rules
URL: http://svn.debian.org/wsvn/trunk/libdevel-caller-perl/debian/rules?rev=11832&op=diff
==============================================================================
--- trunk/libdevel-caller-perl/debian/rules (original)
+++ trunk/libdevel-caller-perl/debian/rules Sat Dec 29 07:31:38 2007
@@ -31,20 +31,17 @@
build: build-stamp
build-stamp:
dh_testdir
-
- # Add commands to compile the package here
- $(PERL) Build.PL installdirs=vendor create_packlist=0
- OPTIMIZE="$(CFLAGS)" $(PERL) Build
-
+ $(PERL) Makefile.PL INSTALLDIRS=vendor \
+ INSTALLVENDORARCH=/usr/lib/perl5/ \
+ VENDORARCHEXP=/usr/lib/perl5/
+ $(MAKE) OPTIMIZE="$(CFLAGS)" LD_RUN_PATH=""
+ $(MAKE) test
touch build-stamp
clean:
dh_testdir
dh_testroot
-
- # Add commands to clean up after the build process here
- [ ! -f Build ] || $(PERL) Build distclean
-
+ [ ! -f Makefile ] || $(MAKE) realclean
dh_clean build-stamp install-stamp
install: install-stamp
@@ -52,14 +49,12 @@
dh_testdir
dh_testroot
dh_clean -k
-
- # Add commands to install the package into debian/$PACKAGE_NAME here
- $(PERL) Build test
- $(PERL) Build install destdir=$(TMP)
-
- rmdir --parents --ignore-fail-on-non-empty $(TMP)/usr/share/perl5
-
- touch install-stamp
+ $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
+ # Rubbish upstream left around
+ find $(TMP) -name "._*" -exec rm -v {} \;
+ # For some strange reason, these directories are still created
+ rmdir --parents --ignore-fail-on-non-empty -v $(TMP)/usr/share/perl5
+ touch $@
# Build architecture-independent files here.
binary-indep: build install
@@ -69,17 +64,15 @@
binary-arch: build install
dh_testdir
dh_testroot
- dh_installdocs README
dh_installexamples
+ dh_installdocs
dh_installchangelogs Changes
- dh_link
+ dh_shlibdeps
dh_strip
+ dh_perl
dh_compress
dh_fixperms
- dh_makeshlibs
dh_installdeb
- dh_perl
- dh_shlibdeps
dh_gencontrol
dh_md5sums
dh_builddeb
Modified: trunk/libdevel-caller-perl/debian/watch
URL: http://svn.debian.org/wsvn/trunk/libdevel-caller-perl/debian/watch?rev=11832&op=diff
==============================================================================
--- trunk/libdevel-caller-perl/debian/watch (original)
+++ trunk/libdevel-caller-perl/debian/watch Sat Dec 29 07:31:38 2007
@@ -1,3 +1,2 @@
-# format version number, currently 2; this line is compulsory!
version=3
-http://www.cpan.org/modules/by-module/Devel/Devel-Caller-([\d\.]+).(?:tar.gz|tar|tgz)
+http://search.cpan.org/dist/Devel-Caller/ .*/Devel-Caller-v?(\d.*).(?:tar.gz|tar|tgz)
Modified: trunk/libdevel-caller-perl/lib/Devel/Caller.pm
URL: http://svn.debian.org/wsvn/trunk/libdevel-caller-perl/lib/Devel/Caller.pm?rev=11832&op=diff
==============================================================================
--- trunk/libdevel-caller-perl/lib/Devel/Caller.pm (original)
+++ trunk/libdevel-caller-perl/lib/Devel/Caller.pm Sat Dec 29 07:31:38 2007
@@ -1,17 +1,157 @@
+use strict;
package Devel::Caller;
-require DynaLoader;
-require Exporter;
-
+use warnings;
+use B;
use PadWalker ();
-
-require 5.005003;
-
- at ISA = qw(Exporter DynaLoader);
- at EXPORT_OK = qw( caller_cv caller_args caller_vars called_with called_as_method );
-
-$VERSION = '0.11';
-
-bootstrap Devel::Caller $VERSION;
+use XSLoader;
+use base qw( Exporter );
+use 5.008;
+
+our $VERSION = '2.02';
+XSLoader::load __PACKAGE__, $VERSION;
+
+our @EXPORT_OK = qw( caller_cv caller_args caller_vars called_with called_as_method );
+
+sub caller_cv {
+ my $level = shift;
+ my $cx = PadWalker::_upcontext($level + 1);
+ return unless $cx;
+ return _context_cv($cx);
+}
+
+our $DEBUG = 0;
+
+sub scan_forward {
+ my $op = shift;
+ die "was expecting a pushmark, not a " . $op->name
+ if ($op->name ne "pushmark");
+
+ my @stack;
+ for (; $op && $op->name ne 'entersub'; $op = $op->next) {
+ print "SCAN op $op ", $op->name, "\n" if $DEBUG;
+ if ($op->name eq "pushmark") {
+ print "push $op\n" if $DEBUG;
+ push @stack, $op;
+ }
+ elsif (0) { # op consumes a mark
+ print "pop\n" if $DEBUG;
+ pop @stack;
+ }
+ }
+ return pop @stack;
+}
+
+*caller_vars = \&called_with;
+sub called_with {
+ my $level = shift;
+ my $want_names = shift;
+
+ my $op = _context_op( PadWalker::_upcontext( $level + 1 ));
+ my $cv = caller_cv( $level + 2 );
+ my $pad = $cv ? B::svref_2object( $cv )->PADLIST : B::comppadlist;
+ my $padn = $pad->ARRAYelt( 0 );
+ my $padv = $pad->ARRAYelt( 1 );
+
+ print $op->name, "\n" if $DEBUG;
+ $op = scan_forward( $op );
+ print $op->name, "\n" if $DEBUG;
+
+ my @return;
+ my ($prev, $skip);
+ $skip = 0;
+ while (($prev = $op) && ($op = $op->next) && ($op->name ne "entersub")) {
+ print "op $op ", $op->name, "\n" if $DEBUG;
+ if ($op->name eq "pushmark") {
+ $skip = !$skip;
+ }
+ elsif ($op->name =~ "pad(sv|av|hv)") {
+ next if $skip;
+ print "PAD skip:$skip\n" if $DEBUG;
+
+ if ($op->next->next->name eq "sassign") {
+ $skip = 0;
+ next;
+ }
+
+ print "targ: ", $op->targ, "\n" if $DEBUG;
+ my $name = $padn->ARRAYelt( $op->targ )->PVX;
+ my $value = $padv->ARRAYelt( $op->targ )->object_2svref;
+ push @return, $want_names ? $name : $value;
+ next;
+ }
+ elsif ($op->name eq "gv") {
+ next;
+ }
+ elsif ($op->name =~ /gvsv|rv2(av|hv|gv)/) {
+ print "GV skip:$skip\n" if $DEBUG;
+
+ if ($op->next->next->name eq "sassign") {
+ $skip = 0;
+ print "skipped\n" if $DEBUG;
+ next;
+ }
+
+ my $consider = ($op->name eq "gvsv") ? $op : $prev;
+ my $gv = $consider->gv;
+ print "consider: $consider ", $consider->name, " gv $gv\n"
+ if $DEBUG;
+ if (ref $consider eq 'B::PADOP') {
+ print "GV is really a padgv\n" if $DEBUG;
+ $gv = $padv->ARRAYelt( $consider->padix );
+ print "NEW GV $gv\n" if $DEBUG;
+ }
+
+ if ($want_names) {
+ my %sigils = (
+ "gvsv" => '$',
+ "rv2av" => '@',
+ "rv2hv" => '%',
+ "rv2gv" => '*',
+ );
+
+ push @return, $sigils{ $op->name } . $gv->STASH->NAME . "::" . $gv->SAFENAME;
+ }
+ else {
+ my %slots = (
+ "gvsv" => 'SCALAR',
+ "rv2av" => 'ARRAY',
+ "rv2hv" => 'HASH',
+ "rv2gv" => 'GLOB',
+ );
+ push @return, *{ $gv->object_2svref }{ $slots{ $op->name} };
+ }
+
+ next;
+ }
+ elsif ($op->name eq "const") {
+ print "const $op skip:$skip\n" if $DEBUG;
+ if ($op->next->next->name eq "sassign") {
+ $skip = 0;
+ next;
+ }
+
+ push @return, $want_names ? undef : $op->sv;
+ next;
+ }
+ }
+ return @return;
+}
+
+
+sub called_as_method {
+ my $level = shift || 0;
+ my $op = _context_op( PadWalker::_upcontext( $level + 1 ));
+
+ print "called_as_method: $op\n" if $DEBUG;
+ die "was expecting a pushmark, not a ". $op->name
+ unless $op->name eq "pushmark";
+ while (($op = $op->next) && ($op->name ne "entersub")) {
+ print "method: ", $op->name, "\n" if $DEBUG;
+ return 1 if $op->name =~ /^method(?:_named)?$/;
+ }
+ return;
+}
+
sub caller_args {
my $level = shift;
@@ -20,35 +160,9 @@
return @DB::args
}
-*caller_vars = called_with;
-sub called_with {
- my $level = shift;
- my $names = shift || 0;
-
- my $cx = PadWalker::_upcontext($level + 1);
- return unless $cx;
-
- my $cv = caller_cv($level + 2);
- _called_with($cx, $cv, $names);
-}
-
-sub caller_cv {
- my $level = shift;
- my $cx = PadWalker::_upcontext($level + 1);
- return unless $cx;
- return _context_cv($cx);
-}
-
-
-sub called_as_method {
- my $level = shift || 0;
- my $cx = PadWalker::_upcontext($level + 1);
- return unless $cx;
- _called_as_method($cx);
-}
-
1;
__END__
+
=head1 NAME
@@ -91,8 +205,8 @@
C<called_as_method> returns true if the subroutine at $level was
called as a method.
+
=head1 BUGS
-
All of these routines are susceptible to the same limitations as
C<caller> as described in L<perlfunc/caller>
@@ -104,44 +218,11 @@
=item
-The code is currently inaccurate in this case:
-
- print foo( $bar ), baz( $quux );
-
-When returning answers about the invocation of baz it will mistakenly
-return the answers for the invocation of foo so you'll see '$bar'
-where you expected '$quux'.
-
-A workaround is to rewrite the code like so:
-
- print foo( $bar );
- print bar( $baz );
-
-A more correct fix is left as a TODO item.
-
-=item
-
-Under perl 5.005_03
-
- use vars qw/@bar/;
- foo( @bar = qw( some value ) );
-
-will not deparse correctly as it generates real split ops rather than
-optimising it into a constant assignment at compile time as in later
-releases of perl.
-
-=item
-
-On perl 5.8.x compiled with ithreads it's not currently supported to
-retrieve package variables from the past. Instead the empty string is
-returned for the name, and undef is returned when the value is
-requested.
-
-Though crappy, this is an improvement on causing your application to
-segfault.
+As a version 2.0 of Devel::Caller we no longer maintain compatibility with
+versions of perl earlier than 5.8.2. Older versions continue to be available
+from CPAN and backpan.
=back
-
=head1 SEE ALSO
@@ -154,8 +235,9 @@
=head1 COPYRIGHT
-Copyright (c) 2002, 2003, 2006 Richard Clamp. All Rights Reserved.
+Copyright (c) 2002, 2003, 2006, 2007 Richard Clamp. All Rights Reserved.
This module is free software. It may be used, redistributed and/or
modified under the same terms as Perl itself.
=cut
+
Modified: trunk/libdevel-caller-perl/t/Devel-Caller.t
URL: http://svn.debian.org/wsvn/trunk/libdevel-caller-perl/t/Devel-Caller.t?rev=11832&op=diff
==============================================================================
--- trunk/libdevel-caller-perl/t/Devel-Caller.t (original)
+++ trunk/libdevel-caller-perl/t/Devel-Caller.t Sat Dec 29 07:31:38 2007
@@ -32,7 +32,6 @@
sub called_lex {
my @called = called_with(0);
is( scalar @called, 3, "right count");
- local $TODO = "pad reorg broke this" if $] >= 5.008001;
is( $called[0], \$foo, "with lexical \$foo" );
is( $called[1], \@foo, "with lexical \@foo" );
is( $called[2], \%foo, "with lexical \%foo" );
@@ -105,9 +104,6 @@
@expect = qw( %flange ); called_assign(%flange = (%foo, %bar));
}
-use Config;
-local $TODO = "ithreads support for globs in 5.008 is bugged to heck"
- if $] > 5.008 && $Config{useithreads};
use vars qw( $quux @quux %quux );
sub called {
my @called = caller_vars(0);
@@ -167,7 +163,6 @@
@expect = qw( %T::flange ); called_assign(%flange = (%foo, %bar));
}
-local $::TODO = undef; # ithreads
package main;
# were we called as a method or a sub
More information about the Pkg-perl-cvs-commits
mailing list