This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
deparse -wl0 -i.bak
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 29 Nov 2001 15:48:15 +0000 (16:48 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 29 Nov 2001 13:47:07 +0000 (13:47 +0000)
Message-ID: <20011129154815.C25817@rafael>

p4raw-id: //depot/perl@13359

ext/B/B/Deparse.pm
ext/B/O.pm
ext/B/t/deparse.t

index b84e8ea..3789b81 100644 (file)
@@ -19,7 +19,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber cstring
          CVf_METHOD CVf_LOCKED CVf_LVALUE
         PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE PMf_SKIPWHITE
         PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED);
-$VERSION = 0.61;
+$VERSION = 0.62;
 use strict;
 use warnings ();
 
@@ -527,6 +527,18 @@ sub compile {
     my(@args) = @_;
     return sub { 
        my $self = B::Deparse->new(@args);
+       # First deparse command-line args
+       if (defined $^I) { # deparse -i
+           print q(BEGIN { $^I = ).cstring($^I).qq(; }\n);
+       }
+       if ($^W) { # deparse -w
+           print qq(BEGIN { \$^W = $^W; }\n);
+       }
+       if ($/ ne "\n" or defined $O::savebackslash) { # deparse -l and -0
+           my $fs = cstring($/) || 'undef';
+           my $bs = cstring($O::savebackslash) || 'undef';
+           print qq(BEGIN { \$/ = $fs; \$\\ = $bs; }\n);
+       }
        my @BEGINs  = B::begin_av->isa("B::AV") ? B::begin_av->ARRAY : ();
        my @INITs   = B::init_av->isa("B::AV") ? B::init_av->ARRAY : ();
        my @ENDs    = B::end_av->isa("B::AV") ? B::end_av->ARRAY : ();
index 50a445c..af9885b 100644 (file)
@@ -42,7 +42,8 @@ sub import {
                die $compilesub;
            }
 
-           local ($\,$",$,) = (undef,' ','');
+           local $savebackslash = $\;
+           local ($\,$",$,) = (undef,' ','');
            &$compilesub();
 
            close STDERR if $veryquiet;
index b8e29a6..12f3e9e 100644 (file)
@@ -98,11 +98,15 @@ my $path = join " ", map { qq["-I$_"] } @INC;
 $path .= " -MMac::err=unix" if $Is_MacOS;
 my $redir = $Is_MacOS ? "" : "2>&1";
 
-$a = `$^X $path "-MO=Deparse" -anle 1 $redir`;
+$a = `$^X $path "-MO=Deparse" -anlwi.bak -e 1 $redir`;
 $a =~ s/(?:# )?-e syntax OK\n//g;  # "# " for Mac OS
+$a =~ s/.*possible typo.*\n//;    # Remove warning line
 $a =~ s{\\340\\242}{\\s} if (ord("\\") == 224); # EBCDIC, cp 1047 or 037
 $a =~ s{\\274\\242}{\\s} if (ord("\\") == 188); # $^O eq 'posix-bc'
 $b = <<'EOF';
+BEGIN { $^I = ".bak"; }
+BEGIN { $^W = 1; }
+BEGIN { $/ = "\n"; $\ = "\n"; }
 LINE: while (defined($_ = <ARGV>)) {
     chomp $_;
     our(@F) = split(" ", $_, 0);