1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 4157df9ec4..897cd72851 100644
--- 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) {