From e59c85deee5e92c444551086c1f2ced999b39d25 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 21 Dec 2021 22:46:16 +0000 Subject: use strict; use warnings; declarations, filehandle barewords, our @disabled git-svn-id: svn://tug.org/texlive/trunk@61372 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPSRC.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/TeXLive/TLPSRC.pm') diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index 1305261ee5b..0a1146386ac 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -4,6 +4,8 @@ # This file is licensed under the GNU General Public License version 2 # or any later version. +use strict; use warnings; + package TeXLive::TLPSRC; use FileHandle; @@ -263,7 +265,7 @@ sub from_file { sub writeout { my $self = shift; - my $fd = (@_ ? $_[0] : STDOUT); + my $fd = (@_ ? $_[0] : *STDOUT); format_name $fd "multilineformat"; # format defined in TLPOBJ, and $: $fd->format_lines_per_page (99999); # no pages in this format print $fd "name ", $self->name, "\n"; -- cgit v1.2.3