File latexpand_perl.dif of Package texlive-specs-m

! Fix boo#983823

--- texmf-dist/scripts/latexpand/latexpand
+++ texmf-dist/scripts/latexpand/latexpand	2016-09-27 14:38:19.280920000 +0200
@@ -123,7 +123,7 @@ sub process_file
 		# ignored by LaTeX, but we don't allow anything before
 		# to avoid e.g. \verb|\end{document}| from terminating
 		# the file.
-		if (!$keep_comments && $line =~ /^[ \t]*\\end{document}/) {
+		if (!$keep_comments && $line =~ /^[ \t]*\\end\{document\}/) {
 			last;
 		}
 	}
@@ -131,9 +131,11 @@ sub process_file
 	return $in_comment;
 }
 
+no warnings;
 sub process_line
 {
-	my ($_, $prefix, $file) = @_;
+	my ($line, $prefix, $file) = @_;
+	$_ = "$line";
 	# Consider \makeatletter only in preamble, because we do want
 	# to warn on \someCommand{\makeatletter\command@with@arobase}.
 	if ($in_preamble && /^[^%]*\\makeatletter/) {
@@ -241,6 +243,7 @@ sub process_line
 	}
 	print;
 }
+use warnings;
 
 # search $1 in $TEXINPUTS, with possible extensions in $2
 sub find_tex_file