Orphaned submission from #21546.

p4raw-id: //depot/perl@21664

diff --git a/perl.c b/perl.c
index 4157df9..897cd72 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1047,7 +1047,7 @@ setuid perl scripts securely.\n");
                   }
              }
         }
-        PL_origalen = s - PL_origargv[0];
+        PL_origalen = s - PL_origargv[0] + 1;
     }
 
     if (PL_do_undump) {