summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/etc/test-code-for-papersize-in-perl.pl5
1 files changed, 2 insertions, 3 deletions
diff --git a/Master/tlpkg/etc/test-code-for-papersize-in-perl.pl b/Master/tlpkg/etc/test-code-for-papersize-in-perl.pl
index 8f59bfb7682..c563c45da0a 100644
--- a/Master/tlpkg/etc/test-code-for-papersize-in-perl.pl
+++ b/Master/tlpkg/etc/test-code-for-papersize-in-perl.pl
@@ -121,10 +121,9 @@ sub do_xdvi {
print "Strange, more than one paper definiton, using the first one!\n";
}
$hit = $hit[0];
+ chomp($hit);
+ print "current xdvi paper size: $hit\n";
}
- chomp($hit);
-
- print "current xdvi paper size: $hit\n";
}