diff options
author | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
commit | 342e672574c4e67d510e46ab6acd0e21a7d0cf54 (patch) | |
tree | 79e04202d08c0404bbd780bd26c1e34710e539b6 /Master/tlpkg/tlperl/lib/strict.pm | |
parent | be2706af7c57a0ef0f4d4e9f684ca4ef74922a82 (diff) |
(tl)perl 5.20.2 for windows, from siep
git-svn-id: svn://tug.org/texlive/trunk@37064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/strict.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/strict.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/strict.pm b/Master/tlpkg/tlperl/lib/strict.pm index 63a89dd8f4e..8eed8bc3f7b 100644 --- a/Master/tlpkg/tlperl/lib/strict.pm +++ b/Master/tlpkg/tlperl/lib/strict.pm @@ -1,6 +1,6 @@ package strict; -$strict::VERSION = "1.07"; +$strict::VERSION = "1.08"; # Verify that we're called correctly so that strictures will work. unless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) { @@ -129,9 +129,9 @@ is a simple identifier (no colons) and that it appears in curly braces or on the left hand side of the C<< => >> symbol. use strict 'subs'; - $SIG{PIPE} = Plumber; # blows up - $SIG{PIPE} = "Plumber"; # just fine: quoted string is always ok - $SIG{PIPE} = \&Plumber; # preferred form + $SIG{PIPE} = Plumber; # blows up + $SIG{PIPE} = "Plumber"; # fine: quoted string is always ok + $SIG{PIPE} = \&Plumber; # preferred form =back |