From d4a9dcb1d762ef86b353809581eab6becd475d84 Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Thu, 1 Dec 2016 14:11:07 -0500
Subject: [PATCH] Fix line numbers in evals on perlbot.pl and in eval:

---
 lib/eval.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/eval.pl b/lib/eval.pl
index 13bf0dc..a57fcbc 100755
--- a/lib/eval.pl
+++ b/lib/eval.pl
@@ -335,7 +335,7 @@ get_seccomp();
         {
         local $^O = $os[rand()*@os];
         no strict; no warnings; package main;
-		$code = "use $]; use feature qw/postderef refaliasing lexical_subs postderef_qq signatures/; use experimental 'declared_refs';\n$code";
+		$code = "use $]; use feature qw/postderef refaliasing lexical_subs postderef_qq signatures/; use experimental 'declared_refs';\n#line 1\n$code";
 		$ret = eval $code;
         }