From b56b320b5e2515160073fa1b469514002688fe11 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 5 Apr 2016 22:27:26 +0000 Subject: tlperl 5.22.1 from siep git-svn-id: svn://tug.org/texlive/trunk@40252 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al (limited to 'Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al') diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al deleted file mode 100644 index 83ec70ed803..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al +++ /dev/null @@ -1,24 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Frame.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Frame; - -#line 182 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\label.al)" -sub label -{ - my ($cw,$val) = @_; - my $var = $cw->cget('-labelVariable'); - if (@_ > 1 && defined $val) - { - if (!defined $var) - { - $var = \$cw->{Configure}{'-label'}; - $cw->labelVariable($var); - } - $$var = $val; - } - return (defined $var) ? $$var : undef;; -} - -# end of Tk::Frame::label -1; -- cgit v1.2.3