From 34a8597760ab5740abd49b6d8be10e1876f5ce98 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 8 Mar 2018 00:16:42 +0000 Subject: (tl)perl 5.26.1 from siep git-svn-id: svn://tug.org/texlive/trunk@46882 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/B/Xref.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/tlperl/lib/B/Xref.pm') diff --git a/Master/tlpkg/tlperl/lib/B/Xref.pm b/Master/tlpkg/tlperl/lib/B/Xref.pm index 8beb243f71f..255ee890bd5 100644 --- a/Master/tlpkg/tlperl/lib/B/Xref.pm +++ b/Master/tlpkg/tlperl/lib/B/Xref.pm @@ -1,6 +1,6 @@ package B::Xref; -our $VERSION = '1.05'; +our $VERSION = '1.06'; =head1 NAME @@ -449,7 +449,7 @@ sub compile { last OPTION; } elsif ($opt eq "o") { $arg ||= shift @options; - open(STDOUT, ">$arg") or return "$arg: $!\n"; + open(STDOUT, '>', $arg) or return "$arg: $!\n"; } elsif ($opt eq "d") { $nodefs = 1; } elsif ($opt eq "r") { -- cgit v1.2.3