diff options
author | Karl Berry <karl@freefriends.org> | 2021-12-21 22:46:16 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-12-21 22:46:16 +0000 |
commit | e59c85deee5e92c444551086c1f2ced999b39d25 (patch) | |
tree | 2e1416230c53eb3eb6531170d1a691f9426a3b62 /Master/tlpkg/TeXLive/TLPSRC.pm | |
parent | 1d19bd5dcb878354da2efe13630de7600210a113 (diff) |
use strict; use warnings; declarations, filehandle barewords, our @disabled
git-svn-id: svn://tug.org/texlive/trunk@61372 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPSRC.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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"; |