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