diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-03-27 20:24:25 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-03-27 20:24:25 +0000 |
| commit | e2932906510255a7f6a6dd4c60304b396a8f4cb6 (patch) | |
| tree | e6696d7377423bb0f654d04bc678b1669dddd7af /x2p | |
| parent | 8aacf77d10c58635d91d34c3c6af7fd9c11626af (diff) | |
| download | perl-e2932906510255a7f6a6dd4c60304b396a8f4cb6.tar.gz | |
Integrate:
[ 22584]
Subject: [perl #27790] split docs: say the string is EXPR
From: Dan Jacobson (via RT) <perlbug-followup@perl.org>
Date: 20 Mar 2004 05:21:07 -0000
Message-ID: <rt-3.0.8-27790-82358.14.5476352902536@perl.org>
Minor documentation nit in split
[ 22586]
Subject: [perl #27748] 'find2perl' bug: -exec causes chdir error
From: "jdhedden@1979.usna.com (via RT)" <perlbug-followup@perl.org>
Date: 18 Mar 2004 20:25:50 -0000
Message-ID: <rt-3.0.8-27748-82270.2.99482909739062@perl.org>
Cwd code was planted in the output executable after the exit, so
was never run.
[ 22593]
Subject: Re: [perl #27906] stat documentation correction
From: Andy Lester <andy@petdance.com>
Date: Wed, 24 Mar 2004 21:48:30 -0600
Message-Id: <20040325034830.GA5865@petdance.com>
(Applied with a correction from Spider Boardman.)
[ 22595]
[perl #26839] document the return value of an empty sub
[ 22597]
Clarify op.h comments for which ops the OPpDEREF* private flags
are actually used; update Concise.pm to match
p4raw-link: @22597 on //depot/perl: 314d47789e6f2fb6e6cb6d9aa287d0766ea79b45
p4raw-link: @22595 on //depot/perl: 4c885f753522207c2fe6ec9251d8d0843e5b9f58
p4raw-link: @22593 on //depot/perl: 61967be2c930c0a1754925d7a1d1c2924a3b57ab
p4raw-link: @22586 on //depot/perl: 7cc8f6889f2ec8914bba5135c912be352f638471
p4raw-link: @22584 on //depot/perl: b2e26e6edc035b06037b6eca4ef7db0cd8e603a6
p4raw-id: //depot/maint-5.8/perl@22603
p4raw-integrated: from //depot/perl@22602 'copy in' t/op/stat.t
(@21344..) x2p/find2perl.PL (@21834..) 'merge in' op.h
(@22509..) pod/perlsub.pod (@22557..) ext/B/B/Concise.pm
(@22566..)
p4raw-edited: from //depot/perl@22584 'edit in' pod/perlfunc.pod
(@22488..)
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/find2perl.PL | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL index 679ca3c05c..67022eef11 100644 --- a/x2p/find2perl.PL +++ b/x2p/find2perl.PL @@ -290,6 +290,14 @@ $declaresubs END +if (exists $init{doexec}) { + print <<'END'; +use Cwd (); +my $cwd = Cwd::cwd(); + +END +} + if (exists $init{ls}) { print <<'END'; my @rwx = qw(--- --x -w- -wx r-- r-x rw- rwx); @@ -358,9 +366,6 @@ END if (exists $init{doexec}) { print <<'END'; -use Cwd (); -my $cwd = Cwd::cwd(); - sub doexec ($@) { my $ok = shift; my @command = @_; # copy so we don't try to s/// aliases to constants |