This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix a stupid type error
authorTony Cook <tony@develop-help.com>
Wed, 7 Sep 2016 01:16:49 +0000 (11:16 +1000)
committerTony Cook <tony@develop-help.com>
Wed, 7 Sep 2016 01:16:49 +0000 (11:16 +1000)
toke.c

diff --git a/toke.c b/toke.c
index 75508f1..3ade32b 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -9724,7 +9724,7 @@ S_scan_heredoc(pTHX_ char *s)
     {
       SV *linestr_save;
       char *oldbufptr_save;
-      char **oldoldbufptr_save;
+      char *oldoldbufptr_save;
      streaming:
       sv_setpvs(tmpstr,"");   /* avoid "uninitialized" warning */
       term = PL_tokenbuf[1];