diff options
| author | Audrey Tang <cpan@audreyt.org> | 2002-10-20 01:51:57 +0800 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-24 22:48:06 +0000 |
| commit | ede8dd12b51a88ac797d7d86b037c6d85d3d8e54 (patch) | |
| tree | bc3a556f3cabc7e52aa876675d4b84fc108d6464 /ext | |
| parent | bf12611a95159ce0683344ec99968bd2838c9d0e (diff) | |
| download | perl-ede8dd12b51a88ac797d7d86b037c6d85d3d8e54.tar.gz | |
B/C.pm: make $0 to argv[0] again
Message-ID: <20021019095157.GA430@not.autrijus.org>
p4raw-id: //depot/perl@18056
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/C.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index 1d195a0b2a..77582d25e0 100644 --- a/ext/B/B/C.pm +++ b/ext/B/B/C.pm @@ -1615,6 +1615,15 @@ EOT } EOT } + else { + print <<EOT; + if ((tmpgv = gv_fetchpv("0",TRUE, SVt_PV))) {/* $0 */ + tmpsv = GvSV(tmpgv); + sv_setpv(tmpsv, argv[0]); + SvSETMAGIC(tmpsv); + } +EOT + } print <<'EOT'; if ((tmpgv = gv_fetchpv("\030",TRUE, SVt_PV))) {/* $^X */ |