summaryrefslogtreecommitdiff
path: root/pod/perlcall.pod
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2016-08-12 08:31:43 -0700
committerFather Chrysostomos <sprout@cpan.org>2016-08-12 08:39:46 -0700
commitbeb162121766004ac91b7bcb84a59a1402fe1634 (patch)
tree28ccf4675d6d977782013af4711508ad14b42f82 /pod/perlcall.pod
parente3f7a67e8485950fdf5fd9c7131d0a78b6c8cf32 (diff)
downloadperl-beb162121766004ac91b7bcb84a59a1402fe1634.tar.gz
perlcall: Remove redundant dSP
call_argv does not use a stack pointer. This example has had the redundant dSP since perl 5.000, presumably due to copying and pasting from another example.
Diffstat (limited to 'pod/perlcall.pod')
-rw-r--r--pod/perlcall.pod2
1 files changed, 0 insertions, 2 deletions
diff --git a/pod/perlcall.pod b/pod/perlcall.pod
index c41d835791..9a268aa4c1 100644
--- a/pod/perlcall.pod
+++ b/pod/perlcall.pod
@@ -1223,8 +1223,6 @@ I<PrintList>.
static void
call_PrintList()
{
- dSP;
-
call_argv("PrintList", G_DISCARD, words);
}