This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
silence 1 compiler warning
authorNicholas Clark <nick@ccl4.org>
Mon, 8 Sep 2003 23:04:45 +0000 (00:04 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 8 Sep 2003 21:10:53 +0000 (21:10 +0000)
Message-ID: <20030908230445.E30881@plum.flirble.org>

p4raw-id: //depot/perl@21113

universal.c

index 15c408d..22841bb 100644 (file)
@@ -910,7 +910,9 @@ XS(XS_PerlIO_get_layers)
 
 XS(XS_Internals_hash_seed)
 {
-    dXSARGS;
+    /* Using dXSARGS would also have dITEM and dSP,
+     * which define 2 unused local variables.  */
+    dMARK; dAX;
     XSRETURN_UV(PL_hash_seed);
 }