This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
eliminate "unused var" warning
authorDave Mitchell <davem@fdisolutions.com>
Thu, 26 Apr 2007 12:36:45 +0000 (12:36 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Thu, 26 Apr 2007 12:36:45 +0000 (12:36 +0000)
p4raw-id: //depot/perl@31083

perl.c

diff --git a/perl.c b/perl.c
index 33aa78e..f48aba6 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -4295,6 +4295,7 @@ FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n");
 #endif /* DOSUID */
     PERL_UNUSED_ARG(validarg);
     PERL_UNUSED_ARG(scriptname);
+    PERL_UNUSED_ARG(linestr_sv);
 }
 
 STATIC void