r69300 - in /trunk/libb-utils-perl: ./ debian/ debian/patches/ debian/source/ lib/B/ lib/B/Utils/ t/ xt/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Feb 22 01:52:59 UTC 2011
Author: jawnsy-guest
Date: Tue Feb 22 01:52:53 2011
New Revision: 69300
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69300
Log:
* New upstream release
* Remove ExtUtils::Depends 3.01 patch (no longer needed)
* Use new 3.0 (quilt) source format
* Standards-Version 3.9.1 (no changes)
Added:
trunk/libb-utils-perl/LICENSE
- copied unchanged from r69299, branches/upstream/libb-utils-perl/current/LICENSE
trunk/libb-utils-perl/debian/source/
trunk/libb-utils-perl/debian/source/format
trunk/libb-utils-perl/dist.ini
- copied unchanged from r69299, branches/upstream/libb-utils-perl/current/dist.ini
trunk/libb-utils-perl/t/release-pod-syntax.t
- copied unchanged from r69299, branches/upstream/libb-utils-perl/current/t/release-pod-syntax.t
trunk/libb-utils-perl/weaver.ini
- copied unchanged from r69299, branches/upstream/libb-utils-perl/current/weaver.ini
Removed:
trunk/libb-utils-perl/.gitignore
trunk/libb-utils-perl/MANIFEST.SKIP
trunk/libb-utils-perl/debian/patches/
trunk/libb-utils-perl/xt/pod.t
trunk/libb-utils-perl/xt/signature.t
Modified:
trunk/libb-utils-perl/Changes
trunk/libb-utils-perl/MANIFEST
trunk/libb-utils-perl/META.yml
trunk/libb-utils-perl/Makefile.PL
trunk/libb-utils-perl/README
trunk/libb-utils-perl/debian/changelog
trunk/libb-utils-perl/debian/control
trunk/libb-utils-perl/lib/B/Utils.pm
trunk/libb-utils-perl/lib/B/Utils/OP.pm
Modified: trunk/libb-utils-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/Changes?rev=69300&op=diff
==============================================================================
--- trunk/libb-utils-perl/Changes (original)
+++ trunk/libb-utils-perl/Changes Tue Feb 22 01:52:53 2011
@@ -1,4 +1,11 @@
Revision history for Perl extension B::Utils.
+
+0.13 Tue Feb 2 2011
+ - Predeclare carp and croak with proper signature
+
+0.12 Mon Jan 24 2011
+ - EU::Depends version [RT #53415]
+ - Build with Dist::Zilla
0.11 Tue Jan 12 2010
- Repackaged using environment variables COPYFILE_DISABLE=1 and COPYFILE_EXTENDED_ATTRIBUTES_DISABLE=1
Modified: trunk/libb-utils-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/MANIFEST?rev=69300&op=diff
==============================================================================
--- trunk/libb-utils-perl/MANIFEST (original)
+++ trunk/libb-utils-perl/MANIFEST Tue Feb 22 01:52:53 2011
@@ -1,19 +1,21 @@
-.gitignore
-build/IFiles.pm
BUtils.h
BUtils_op.h
Changes
+LICENSE
+MANIFEST
+META.yml
+Makefile.PL
+OP.xs
+README
+Utils.xs
+build/IFiles.pm
+dist.ini
lib/B/Utils.pm
lib/B/Utils/OP.pm
-Makefile.PL
-MANIFEST This list of files
-MANIFEST.SKIP
-META.yml
-OP.xs
ppport.h
-README
t/10use.t
t/11export.t
+t/release-pod-syntax.t
t/utils/20all_starts.t
t/utils/21all_roots.t
t/utils/22anon_subs.t
@@ -33,8 +35,6 @@
t/utils/50carp.t
t/utils/51croak.t
typemap
-Utils.xs
-xt/pod.t
+weaver.ini
xt/ppport.t
-xt/signature.t
xt/version.t
Modified: trunk/libb-utils-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/META.yml?rev=69300&op=diff
==============================================================================
--- trunk/libb-utils-perl/META.yml (original)
+++ trunk/libb-utils-perl/META.yml Tue Feb 22 01:52:53 2011
@@ -1,33 +1,28 @@
---- #YAML:1.0
-name: B-Utils
-version: 0.11
-abstract: Helper functions for op tree manipulation
+---
+abstract: 'Helper functions for op tree manipulation'
author:
- - Joshua b. Jore <jjore at cpan.org>
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::CBuilder: 0
- ExtUtils::Depends: 0.302
+ - 'Josh Jore <jjore at cpan.org>'
build_requires:
- ExtUtils::MakeMaker: 0
+ Test::More: 0
+dynamic_config: 0
+generated_by: 'Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.102400'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: B-Utils
requires:
- Exporter: 0
- ExtUtils::CBuilder: 0
- perl: 5.006
- Scalar::Util: 0
- Task::Weaken: 0
- Test::More: 0
+ B: 0
+ Carp: 0
+ DynaLoader: 0
+ Exporter: 0
+ List::Util: 0
+ Scalar::Util: 0
+ perl: 5.006
+ subs: 0
+ vars: 0
resources:
- repository: http://github.com/jbenjore/B-Utils/tree
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.55_02
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
-keywords:
- - op tree
- - perl internals
+ bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=B-Utils
+ homepage: http://search.cpan.org/dist/B-Utils
+ repository: git://github.com/jbenjore/b-utils.git
+version: 0.13
Modified: trunk/libb-utils-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/Makefile.PL?rev=69300&op=diff
==============================================================================
--- trunk/libb-utils-perl/Makefile.PL (original)
+++ trunk/libb-utils-perl/Makefile.PL Tue Feb 22 01:52:53 2011
@@ -1,7 +1,13 @@
#!perl
use 5.006;
use strict;
-my $ExtUtils_Depends_required = 0.302; #minimum version that works on Win32+gcc
+
+my $ExtUtils_Depends_required;
+
+# [RT #53415]
+if ($^O eq 'Win32') { $ExtUtils_Depends_required = 0.302; }
+else { $ExtUtils_Depends_required = 0.301; }
+
eval {
require ExtUtils::Depends;
};
@@ -42,7 +48,7 @@
'ExtUtils::CBuilder' => 0,
},
ABSTRACT_FROM => 'lib/B/Utils.pm',
- AUTHOR => 'Joshua b. Jore <jjore at cpan.org>',
+ AUTHOR => 'Josh Jore <jjore at cpan.org>',
LICENSE => 'perl',
MIN_PERL_VERSION => 5.006,
META_MERGE => {
Modified: trunk/libb-utils-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/README?rev=69300&op=diff
==============================================================================
--- trunk/libb-utils-perl/README (original)
+++ trunk/libb-utils-perl/README Tue Feb 22 01:52:53 2011
@@ -1,314 +1,13 @@
-NAME
- B::Utils - Helper functions for op tree manipulation
-VERSION
- 0.10
-SYNOPSIS
- use B::Utils;
+This archive contains the distribution B-Utils,
+version 0.13:
-OP METHODS
- "$op->oldname"
- Returns the name of the op, even if it is currently optimized to
- null. This helps you understand the stucture of the op tree.
+ Helper functions for op tree manipulation
- "$op->kids"
- Returns an array of all this op's non-null children, in order.
+This software is copyright (c) 2011 by Josh Jore.
- "$op->parent"
- Returns the parent node in the op tree, if possible. Currently
- "possible" means "if the tree has already been optimized"; that is,
- if we're during a "CHECK" block. (and hence, if we have valid "next"
- pointers.)
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
- In the future, it may be possible to search for the parent before we
- have the "next" pointers in place, but it'll take me a while to
- figure out how to do that.
- "$op->ancestors"
- Returns all parents of this node, recursively. The list is ordered
- from younger/closer parents to older/farther parents.
-
- "$op->descendants"
- Returns all children of this node, recursively. The list is
- unordered.
-
- "$op->siblings"
- Returns all younger siblings of this node. The list is ordered from
- younger/closer siblings to older/farther siblings.
-
- "$op->previous"
- Like " $op->next ", but not quite.
-
- "$op->stringify"
- Returns a nice stringification of an opcode.
-
- "$op->as_opgrep_pattern(%options)"
- From the op tree it is called on, "as_opgrep_pattern()" generates a
- data structure suitable for use as a condition pattern for the
- "opgrep()" function described below in detail. *Beware*: When using
- such generated patterns, there may be false positives: The pattern
- will most likely not match *only* the op tree it was generated from
- since by default, not all properties of the op are reproduced.
-
- You can control which properties of the op to include in the pattern
- by passing named arguments. The default behaviour is as if you
- passed in the following options:
-
- my $pattern = $op->as_opgrep_pattern(
- attributes => [qw(name flags)],
- max_recursion_depth => undef,
- );
-
- So obviously, you can set "max_recursion_depth" to a number to limit
- the maximum depth of recursion into the op tree. Setting it to 0
- will limit the dump to the current op.
-
- "attributes" is a list of attributes to include in the produced
- pattern. The attributes that can be checked against in this way are
-
- name targ type seq flags private pmflags pmpermflags.
-
-EXPORTABLE FUNCTIONS
- "all_starts"
- "all_roots"
- Returns a hash of all of the starting ops or root ops of optrees,
- keyed to subroutine name; the optree for main program is simply
- keyed to "__MAIN__".
-
- Note: Certain "dangerous" stashes are not scanned for subroutines:
- the list of such stashes can be found in @B::Utils::bad_stashes.
- Feel free to examine and/or modify this to suit your needs. The
- intention is that a simple program which uses no modules other than
- "B" and "B::Utils" would show no addition symbols.
-
- This does not return the details of ops in anonymous subroutines
- compiled at compile time. For instance, given
-
- $a = sub { ... };
-
- the subroutine will not appear in the hash. This is just as well,
- since they're anonymous... If you want to get at them, use...
-
- "anon_subs"
- This returns an array of hash references. Each element has the keys
- "start" and "root". These are the starting and root ops of all of
- the anonymous subroutines in the program.
-
- "recalc_sub_cache"
- If PL_sub_generation has changed or you have some other reason to
- want to force the re-examination of the optrees, everywhere, call
- this function.
-
- "walkoptree_simple($op, \&callback, [$data])"
- The "B" module provides various functions to walk the op tree, but
- they're all rather difficult to use, requiring you to inject methods
- into the "B::OP" class. This is a very simple op tree walker with
- more expected semantics.
-
- All the "walk" functions set $B::Utils::file, $B::Utils::line, and
- $B::Utils::sub to the appropriate values of file, line number, and
- sub name in the program being examined.
-
- "walkoptree_filtered($op, \&filter, \&callback, [$data])"
- This is much the same as "walkoptree_simple", but will only call the
- callback if the "filter" returns true. The "filter" is passed the op
- in question as a parameter; the "opgrep" function is fantastic for
- building your own filters.
-
- "walkallops_simple(\&callback, [$data])"
- This combines "walkoptree_simple" with "all_roots" and "anon_subs"
- to examine every op in the program. $B::Utils::sub is set to the
- subroutine name if you're in a subroutine, "__MAIN__" if you're in
- the main program and "__ANON__" if you're in an anonymous
- subroutine.
-
- "walkallops_filtered(\&filter, \&callback, [$data])"
- Same as above, but filtered.
-
- "opgrep(\%conditions, @ops)"
- Returns the ops which meet the given conditions. The conditions
- should be specified like this:
-
- @barewords = opgrep(
- { name => "const", private => OPpCONST_BARE },
- @ops
- );
-
- where the first argument to "opgrep()" is the condition to be
- matched against the op structure. We'll henceforth refer to it as an
- op-pattern.
-
- You can specify alternation by giving an arrayref of values:
-
- @svs = opgrep ( { name => ["padsv", "gvsv"] }, @ops)
-
- And you can specify inversion by making the first element of the
- arrayref a "!". (Hint: if you want to say "anything", say "not
- nothing": "["!"]")
-
- You may also specify the conditions to be matched in nearby ops as
- nested patterns.
-
- walkallops_filtered(
- sub { opgrep( {name => "exec",
- next => {
- name => "nextstate",
- sibling => { name => [qw(! exit warn die)] }
- }
- }, @_)},
- sub {
- carp("Statement unlikely to be reached");
- carp("\t(Maybe you meant system() when you said exec()?)\n");
- }
- )
-
- Get that?
-
- Here are the things that can be tested in this way:
-
- name targ type seq flags private pmflags pmpermflags
- first other last sibling next pmreplroot pmreplstart pmnext
-
- Additionally, you can use the "kids" keyword with an array reference
- to match the result of a call to "$op->kids()". An example use is
- given in the documentation for "op_or" below.
-
- For debugging, you can have many properties of an op that is
- currently being matched against a given condition dumped to STDERR
- by specifying "dump =" 1> in the condition's hash reference.
-
- If you match a complex condition against an op tree, you may want to
- extract a specific piece of information from the tree if the
- condition matches. This normally entails manually walking the tree a
- second time down to the op you wish to extract, investigate or
- modify. Since this is tedious duplication of code and information,
- you can specify a special property in the pattern of the op you wish
- to extract to capture the sub-op of interest. Example:
-
- my ($result) = opgrep(
- { name => "exec",
- next => { name => "nextstate",
- sibling => { name => [qw(! exit warn die)]
- capture => "notreached",
- },
- }
- },
- $root_op
- );
-
- if ($result) {
- my $name = $result->{notreached}->name; # result is *not* the root op
- carp("Statement unlikely to be reached (op name: $name)");
- carp("\t(Maybe you meant system() when you said exec()?)\n");
- }
-
- While the above is a terribly contrived example, consider the win
- for a deeply nested pattern or worse yet, a pattern with many
- disjunctions. If a "capture" property is found anywhere in the op
- pattern, "opgrep()" returns an unblessed hash reference on success
- instead of the tested op. You can tell them apart using
- Scalar::Util's "blessed()". That hash reference contains all
- captured ops plus the tested root up as the hash entry
- "$result->{op}". Note that you cannot use this feature with
- "walkoptree_filtered" since that function was specifically
- documented to pass the tested op itself to the callback.
-
- You cannot capture disjunctions, but that doesn't really make sense
- anyway.
-
- "opgrep( \@conditions, @ops )"
- Same as above, except that you don't have to chain the conditions
- yourself. If you pass an array-ref, opgrep will chain the conditions
- for you using "next". The conditions can either be strings (taken as
- op-names), or hash-refs, with the same testable conditions as given
- above.
-
- "op_or( @conditions )"
- Unlike the chaining of conditions done by "opgrep" itself if there
- are multiple conditions, this function creates a disjunction
- ("$cond1 || $cond2 || ...") of the conditions and returns a
- structure (hash reference) that can be passed to opgrep as a single
- condition.
-
- Example:
-
- my $sub_structure = {
- name => 'helem',
- first => { name => 'rv2hv', },
- 'last' => { name => 'const', },
- };
-
- my @ops = opgrep( {
- name => 'leavesub',
- first => {
- name => 'lineseq',
- kids => [,
- { name => 'nextstate', },
- op_or(
- {
- name => 'return',
- first => { name => 'pushmark' },
- last => $sub_structure,
- },
- $sub_structure,
- ),
- ],
- },
- }, $op_obj );
-
- This example matches the code in a typical simplest-possible
- accessor method (albeit not down to the last bit):
-
- sub get_foo { $_[0]->{foo} }
-
- But by adding an alternation we can also match optional op layers.
- In this case, we optionally match a return statement, so the
- following implementation is also recognized:
-
- sub get_foo { return $_[0]->{foo} }
-
- Essentially, this is syntactic sugar for the following structure
- recognized by "opgrep()":
-
- { disjunction => [@conditions] }
-
- "carp(@args)"
- "croak(@args)"
- Warn and die, respectively, from the perspective of the position of
- the op in the program. Sounds complicated, but it's exactly the kind
- of error reporting you expect when you're grovelling through an op
- tree.
-
- EXPORT
- None by default.
-
- XS EXPORT
- This modules uses ExtUtils::Depends to export some useful functions for
- XS modules to use. To use those, include in your Makefile.PL:
-
- my $pkg = ExtUtils::Depends->new("Your::XSModule", "B::Utils");
- WriteMakefile(
- ... # your normal makefile flags
- $pkg->get_makefile_vars,
- );
-
- Your XS module can now include BUtils.h and BUtils_op.h. To see document
- for the functions provided, use:
-
- perldoc -m B::Utils::Install::BUtils.h
- perldoc -m B::Utils::Install::BUtils_op.h
-
-AUTHOR
- Originally written by Simon Cozens
-
- Contributions from Mattia Barbon, Jim Cromie, Steffen Mueller, and
- Chia-liang Kao, Alexandr Ciornii, Josh ben Jore.
-
-LICENSE
- This module is free software; you can redistribute it and/or modify it
- under the same terms as Perl itself.
-
-SEE ALSO
- B, B::Generate.
-
Modified: trunk/libb-utils-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/debian/changelog?rev=69300&op=diff
==============================================================================
--- trunk/libb-utils-perl/debian/changelog (original)
+++ trunk/libb-utils-perl/debian/changelog Tue Feb 22 01:52:53 2011
@@ -1,8 +1,15 @@
-libb-utils-perl (0.11-2) UNRELEASED; urgency=low
+libb-utils-perl (0.13-1) UNRELEASED; urgency=low
+ [ Jonathan Yu ]
+ * New upstream release
+ * Remove ExtUtils::Depends 3.01 patch (no longer needed)
+ * Use new 3.0 (quilt) source format
+ * Standards-Version 3.9.1 (no changes)
+
+ [ gregor herrmann ]
* debian/rules: switch order of arguments to dh.
- -- gregor herrmann <gregoa at debian.org> Wed, 28 Jul 2010 14:32:12 -0400
+ -- Jonathan Yu <jawnsy at cpan.org> Mon, 21 Feb 2011 21:16:01 -0500
libb-utils-perl (0.11-1) unstable; urgency=low
Modified: trunk/libb-utils-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/debian/control?rev=69300&op=diff
==============================================================================
--- trunk/libb-utils-perl/debian/control (original)
+++ trunk/libb-utils-perl/debian/control Tue Feb 22 01:52:53 2011
@@ -1,12 +1,13 @@
Source: libb-utils-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7.0.8), quilt (>= 0.46-7), perl,
- libtask-weaken-perl, libextutils-depends-perl (>= 0.301)
+Build-Depends: debhelper (>= 7), perl,
+ libtask-weaken-perl,
+ libextutils-depends-perl (>= 0.301)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Damyan Ivanov <dmn at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
gregor herrmann <gregoa at debian.org>
-Standards-Version: 3.8.3
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/B-Utils/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libb-utils-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libb-utils-perl/
Added: trunk/libb-utils-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/debian/source/format?rev=69300&op=file
==============================================================================
--- trunk/libb-utils-perl/debian/source/format (added)
+++ trunk/libb-utils-perl/debian/source/format Tue Feb 22 01:52:53 2011
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libb-utils-perl/lib/B/Utils.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/lib/B/Utils.pm?rev=69300&op=diff
==============================================================================
--- trunk/libb-utils-perl/lib/B/Utils.pm (original)
+++ trunk/libb-utils-perl/lib/B/Utils.pm Tue Feb 22 01:52:53 2011
@@ -11,8 +11,9 @@
qw( walkoptree_simple walkoptree_filtered ),
qw( walkallops_simple walkallops_filtered ),
qw( opgrep op_or ),
- qw( croak carp )
);
+sub croak (@);
+sub carp (@);
use Scalar::Util qw( weaken blessed );
@@ -28,11 +29,11 @@
=head1 VERSION
-0.11
-
-=cut
-
-$VERSION = '0.11';
+0.13
+
+=cut
+
+$VERSION = '0.13';
@@ -82,12 +83,12 @@
# Fake up a TRACE constant and set $TRACE_FH
BEGIN { $^W = 0 }
no warnings;
- eval 'sub TRACE () {' . ( 0 + $ENV{B_UTILS_TRACE} ) . '}';
+ eval 'sub _TRACE () {' . ( 0 + $ENV{B_UTILS_TRACE} ) . '}';
die $@ if $@;
$TRACE_FH ||= \*STDOUT;
}
-sub TRUE () { !!1 }
-sub FALSE () { !!0 }
+sub _TRUE () { !!1 }
+sub _FALSE () { !!0 }
=head1 OP METHODS
@@ -294,7 +295,7 @@
## unless ( defined $node ) {
## # If I've been asked to search nothing, just return. The
## # ->parent call might do this to me.
-## return FALSE;
+## return _FALSE;
## }
## elsif ( exists $deadend{$node} ) {
## # If this node has been seen already, try again as its
@@ -322,8 +323,8 @@
## for @kids;
##
## # Not in this subtree.
-## $deadend{$node} = TRUE;
-## return FALSE;
+## $deadend{$node} = _TRUE;
+## return _FALSE;
## };
##
## my $next = $target;
@@ -333,7 +334,7 @@
## and return $result;
## }
##
-## return FALSE;
+## return _FALSE;
## }
=item C<$op-E<gt>stringify>
@@ -464,10 +465,10 @@
=cut
-my $subs_cached = FALSE;
+my $subs_cached = _FALSE;
sub recalc_sub_cache {
- $subs_cached = FALSE;
+ $subs_cached = _FALSE;
%starts = %roots = @anon_subs = ();
@@ -490,9 +491,9 @@
_B_Utils_init_sub_cache => sub {
# Do not eat our own children!
- $_[0] eq "$_\::" && return FALSE for @bad_stashes;
-
- return TRUE;
+ $_[0] eq "$_\::" && return _FALSE for @bad_stashes;
+
+ return _TRUE;
},
''
);
@@ -510,7 +511,7 @@
),
main_cv()->PADLIST->ARRAY->ARRAY );
- $subs_cached = TRUE;
+ $subs_cached = _TRUE;
return;
}
@@ -555,7 +556,7 @@
$starts{$name} = $start;
$roots{$name} = $root;
- # return TRUE;
+ # return _TRUE;
return;
}
@@ -566,7 +567,7 @@
#
# # JJ: I'm not sure why this callback function exists.
#
-# return TRUE;
+# return _TRUE;
# }
=item C<walkoptree_simple($op, \&callback, [$data])>
@@ -592,7 +593,7 @@
_walkoptree_simple( {}, @_ );
- return TRUE;
+ return _TRUE;
}
sub _walkoptree_simple {
@@ -632,7 +633,7 @@
_walkoptree_filtered( {}, @_ );;
- return TRUE;
+ return _TRUE;
}
sub _walkoptree_filtered {
@@ -660,7 +661,7 @@
}
}
- return TRUE;
+ return _TRUE;
}
=item C<walkallops_simple(\&callback, [$data])>
@@ -677,7 +678,7 @@
&_walkallops_simple;
- return TRUE;
+ return _TRUE;
}
sub _walkallops_simple {
@@ -690,7 +691,7 @@
$sub = "__ANON__";
walkoptree_simple( $_->{root}, $callback, $data ) for @anon_subs;
- return TRUE;
+ return _TRUE;
}
=item C<walkallops_filtered(\&filter, \&callback, [$data])>
@@ -704,7 +705,7 @@
&_walkallops_filterd;
- return TRUE;
+ return _TRUE;
}
sub _walkallops_filtered {
@@ -719,7 +720,7 @@
walkoptree_filtered( $_->{root}, $filter, $callback, $data )
for @anon_subs;
- return TRUE;
+ return _TRUE;
}
=item C<opgrep(\%conditions, @ops)>
@@ -862,7 +863,7 @@
# special disjunction case. undef in a disjunction => (child) does not exist
if (not defined $condition) {
- return TRUE if not defined $op and not wantarray();
+ return _TRUE if not defined $op and not wantarray();
return();
}
@@ -982,7 +983,7 @@
last;
}
elsif ( defined wantarray ) {
- return TRUE;
+ return _TRUE;
}
} # end for @conditions
# end of conditions loop should be end of op test
@@ -1064,15 +1065,16 @@
return({ disjunction => [@conditions] });
}
-sub op_pattern_match {
- my $op = shift;
- my $pattern = shift;
-
- my $ret = {};
-
-
- return $ret;
-}
+# TODO
+# sub op_pattern_match {
+# my $op = shift;
+# my $pattern = shift;
+#
+# my $ret = {};
+#
+#
+# return $ret;
+# }
=item C<carp(@args)>
Modified: trunk/libb-utils-perl/lib/B/Utils/OP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/lib/B/Utils/OP.pm?rev=69300&op=diff
==============================================================================
--- trunk/libb-utils-perl/lib/B/Utils/OP.pm (original)
+++ trunk/libb-utils-perl/lib/B/Utils/OP.pm Tue Feb 22 01:52:53 2011
@@ -8,7 +8,7 @@
our @ISA = 'Exporter';
require Exporter;
-our $VERSION = '0.11';
+our $VERSION = '0.13';
our @EXPORT = qw(parent_op return_op);
More information about the Pkg-perl-cvs-commits
mailing list