B/C.pm: make $0 to argv[0] again

Message-ID: <20021019095157.GA430@not.autrijus.org>

p4raw-id: //depot/perl@18056

diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index 1d195a0..77582d2 100644 (file)
--- 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 */