diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2011-11-20 17:02:16 +0000 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2011-11-20 17:02:16 +0000 |
| commit | 12ebe7861478a18098832674ec5d87fc3969ed39 (patch) | |
| tree | de158a2f2d5edc5e713cb0ef0eb4a31d5ca0da5c /dist | |
| parent | 31308e0c7f58e94e107406cdabc32ec563391d79 (diff) | |
| download | perl-12ebe7861478a18098832674ec5d87fc3969ed39.tar.gz | |
Fix up B::Deparse following recent version bumps
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/B-Deparse/Deparse.pm | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index 428466b519..cb54b956cd 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -26,17 +26,8 @@ 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'), - ($] < 5.015003 && - # This empirical feature test is required during the - # transitional phase where blead still identifies itself - # as 5.15.2 but has had $[ removed. After blead has its - # version number bumped to 5.15.3, this can be reduced to - # just test $] < 5.015003. - ($] < 5.015002 || do { require B; exists(&B::OPpCONST_ARYBASE) }) - ? qw(OPpCONST_ARYBASE) : ()), - ($] < 5.015005 && - ($] < 5.015004 || do { require B; exists(&B::OPpEVAL_BYTES) }) - ? qw(OPpEVAL_BYTES) : ()); + ($] < 5.015003 ? qw(OPpCONST_ARYBASE) : ()), + ($] < 5.015005 ? () : qw(OPpEVAL_BYTES)); $VERSION = "1.09"; use strict; use vars qw/$AUTOLOAD/; |