From 34c8f0bcff38aa24a98c1e5e9e033ec0c04c7420810b7c8aed0a85631cf16a87 Mon Sep 17 00:00:00 2001
From: OBS User buildservice-autocommit <null@suse.de>
Date: Tue, 27 Sep 2016 14:18:30 +0000
Subject: [PATCH] Updating link to change in Publishing:TeXLive/texlive-specs
 revision 112.0

OBS-URL: https://build.opensuse.org/package/show/Publishing:TeXLive/texlive-specs-a?expand=0&rev=60229a778665d2cd683e03c32dc121de
---
 latexpand_perl.dif | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 latexpand_perl.dif

diff --git a/latexpand_perl.dif b/latexpand_perl.dif
new file mode 100644
index 0000000..9aa6978
--- /dev/null
+++ b/latexpand_perl.dif
@@ -0,0 +1,34 @@
+! 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