diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-12 06:24:56 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-12 06:28:10 -0700 |
| commit | 9825ce0e87f6a08192647f1352c92da16d377a04 (patch) | |
| tree | ffcacecccad7607b615c8ebbe44e9342fd86b324 | |
| parent | 465bc0f5bf04702adf1825f8db8511ecc5c3adfc (diff) | |
| download | perl-9825ce0e87f6a08192647f1352c92da16d377a04.tar.gz | |
Revert "Oops! Update B::Deparse for the (l)stat proto change"
This reverts commit db147d7ee1c1aca547b1d63ef7141e56821a3ae2.
This is no longer necessary, as of this commit’s grandparent.
| -rw-r--r-- | dist/B-Deparse/Deparse.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index 08129933a5..848b2fa7a3 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -26,7 +26,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber perlstring ($] < 5.009 ? 'PMf_SKIPWHITE' : qw(RXf_SKIPWHITE)), ($] < 5.011 ? 'CVf_LOCKED' : 'OPpREVERSE_INPLACE'), ($] < 5.013 ? () : 'PMf_NONDESTRUCT'); -$VERSION = "1.07"; +$VERSION = "1.06"; use strict; use vars qw/$AUTOLOAD/; use warnings (); @@ -1553,7 +1553,7 @@ sub keyword { : "CORE::$name"; } if ( - $name !~ /^(?:chom?p|exec|system|l?stat)\z/ + $name !~ /^(?:chom?p|exec|system)\z/ && !defined eval{prototype "CORE::$name"} ) { return $name } if ( |