← Back to branch summary

~ubuntu-branches/ubuntu/precise/perl/precise

« back to all changes in this revision

Viewing changes to dist/B-Deparse/Deparse.pm

  • Committer: Bazaar Package Importer
  • Author(s): Niko Tyni
  • Date: 2011-02-06 11:31:38 UTC
  • mto: (8.2.12 experimental) (1.1.12)
  • mto: This revision was merged to the branch mainline in revision 46.
  • Revision ID: james.westby@ubuntu.com-20110206113138-lzpm3g6rur7i3eyp
Tags: upstream-5.12.3
Import upstream version 5.12.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
dist/B-Deparse/Deparse.pm
16
16
         OPpTRANS_SQUASH OPpTRANS_DELETE OPpTRANS_COMPLEMENT OPpTARGET_MY
17
17
         OPpCONST_ARYBASE OPpEXISTS_SUB OPpSORT_NUMERIC OPpSORT_INTEGER
18
18
         OPpSORT_REVERSE OPpSORT_INPLACE OPpSORT_DESCEND OPpITER_REVERSED
19
 
         OPpREVERSE_INPLACE
 
19
         OPpREVERSE_INPLACE OPpCONST_NOVER
20
20
         SVf_IOK SVf_NOK SVf_ROK SVf_POK SVpad_OUR SVf_FAKE SVs_RMG SVs_SMG
21
21
         CVf_METHOD CVf_LVALUE
22
22
         PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE
23
23
         PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED),
24
24
         ($] < 5.009 ? 'PMf_SKIPWHITE' : 'RXf_SKIPWHITE'),
25
25
         ($] < 5.011 ? 'CVf_LOCKED' : ());
26
 
$VERSION = 0.97;
 
26
$VERSION = 0.97_01;
27
27
use strict;
28
28
use vars qw/$AUTOLOAD/;
29
29
use warnings ();
1789
1789
        $name =~ s/\.pm//g;
1790
1790
        return "$opname $name";
1791
1791
    } else {    
1792
 
        $self->unop($op, $cx, $opname);
 
1792
        $self->unop($op, $cx, $op->first->private & OPpCONST_NOVER ? "no" : $opname);
1793
1793
    }
1794
1794
}
1795
1795