diff options
author | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
commit | a4c42bfb2337d37da89d789cb8cc226367994e32 (patch) | |
tree | c3eabdef5d565a4e515d2be0d9d4d0540bde0250 /Master/tlpkg/tlperl/lib/auto/POSIX | |
parent | 8274475057f024d35332ac47c2e2f23ea156e6ed (diff) |
perl 5.14.2 from siep
git-svn-id: svn://tug.org/texlive/trunk@26525 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/POSIX')
168 files changed, 170 insertions, 169 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/POSIX.dll b/Master/tlpkg/tlperl/lib/auto/POSIX/POSIX.dll Binary files differindex 38ff832bf2a..40628fdbf97 100755 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/POSIX.dll +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/POSIX.dll diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/flags.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/flags.al index 7cbdb7bb920..32cf8dac85e 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/flags.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/flags.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigAction; -#line 986 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\flags.al)" +#line 981 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\flags.al)" sub flags { $_[0]->{FLAGS} = $_[1] if @_ > 1; $_[0]->{FLAGS} }; # end of POSIX::SigAction::flags 1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/handler.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/handler.al index 3d03d1c9a99..817f1f0f639 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/handler.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/handler.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigAction; -#line 984 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\handler.al)" +#line 979 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\handler.al)" sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} }; # end of POSIX::SigAction::handler 1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/mask.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/mask.al index bc8bd31e8c0..772fc89acc1 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/mask.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/mask.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigAction; -#line 985 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\mask.al)" +#line 980 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\mask.al)" sub mask { $_[0]->{MASK} = $_[1] if @_ > 1; $_[0]->{MASK} }; # end of POSIX::SigAction::mask 1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/new.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/new.al index b74b2d4a4de..7f7b34ae252 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/new.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/new.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigAction; -#line 981 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\new.al)" +#line 976 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\new.al)" package POSIX::SigAction; sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/safe.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/safe.al index a9f21cc5f18..0922eb774d3 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/safe.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigAction/safe.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigAction; -#line 987 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\safe.al)" +#line 982 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigAction\safe.al)" sub safe { $_[0]->{SAFE} = $_[1] if @_ > 1; $_[0]->{SAFE} }; package POSIX::SigRt; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al index 78d3d5bb622..b04444a5965 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/CLEAR.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 1041 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\CLEAR.al)" +#line 1036 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\CLEAR.al)" sub CLEAR { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } } # end of POSIX::SigRt::CLEAR 1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.al index 6bac474d05b..87032a661e9 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/DELETE.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 1040 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\DELETE.al)" +#line 1035 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\DELETE.al)" sub DELETE { delete $SIG{ &_check } } # end of POSIX::SigRt::DELETE 1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.al index 2f2c73d94a8..cd893cc1ec2 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/EXISTS.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 1034 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\EXISTS.al)" +#line 1029 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\EXISTS.al)" sub EXISTS { &_exist } # end of POSIX::SigRt::EXISTS 1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.al index ed18ab0d9b6..250a70eb2e1 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/FETCH.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 1035 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\FETCH.al)" +#line 1030 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\FETCH.al)" sub FETCH { my $rtsig = &_check; my $oa = POSIX::SigAction->new(); POSIX::sigaction($rtsig, undef, $oa); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.al index feec293431c..9fec86dafa8 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/SCALAR.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 1042 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\SCALAR.al)" +#line 1037 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\SCALAR.al)" sub SCALAR { &_croak; $_sigrtn + 1 } 1; # end of POSIX::SigRt::SCALAR diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.al index f4c6466a06b..50dd6ba820b 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/STORE.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 1039 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\STORE.al)" +#line 1034 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\STORE.al)" sub STORE { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) } # end of POSIX::SigRt::STORE 1; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.al index c1a46c3e6c3..d2bd3214b68 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_check.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 1018 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_check.al)" +#line 1013 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_check.al)" sub _check { my ($rtsig, $ok) = &_exist; die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)" diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.al index 742d4e9cd46..3007b442b85 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_croak.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 998 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_croak.al)" +#line 993 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_croak.al)" sub _croak { &_init unless defined $_sigrtn; die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.al index 075bbed6ab8..090d22b42cb 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_exist.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 1012 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_exist.al)" +#line 1007 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_exist.al)" sub _exist { my $rtsig = _getsig($_[1]); my $ok = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.al index 1cdbfaaf197..2a74dd50836 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_getsig.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 1003 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_getsig.al)" +#line 998 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_getsig.al)" sub _getsig { &_croak; my $rtsig = $_[0]; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.al index 8ac96299ec6..15f8b1f3320 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/_init.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 992 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_init.al)" +#line 987 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\_init.al)" sub _init { $_SIGRTMIN = &POSIX::SIGRTMIN; $_SIGRTMAX = &POSIX::SIGRTMAX; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al index 30b6100a634..0da3e9643cc 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/SigRt/new.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX::SigRt; -#line 1025 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\new.al)" +#line 1020 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\SigRt\new.al)" sub new { my ($rtsig, $handler, $flags) = @_; my $sigset = POSIX::SigSet->new($rtsig); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/abs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/abs.al index a882e5a0309..9874a1f0924 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/abs.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/abs.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 414 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\abs.al)" +#line 408 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\abs.al)" sub abs { usage "abs(x)" if @_ != 1; CORE::abs($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/alarm.al b/Master/tlpkg/tlperl/lib/auto/POSIX/alarm.al index 2bf97977aeb..8c4c3765be4 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/alarm.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/alarm.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 631 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\alarm.al)" +#line 625 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\alarm.al)" sub alarm { usage "alarm(seconds)" if @_ != 1; CORE::alarm($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/assert.al b/Master/tlpkg/tlperl/lib/auto/POSIX/assert.al index fbeefa8583c..73452ef1d36 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/assert.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/assert.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 96 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\assert.al)" +#line 90 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\assert.al)" sub assert { usage "assert(expr)" if @_ != 1; if (!$_[0]) { diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/atan2.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atan2.al index 41b71fab8e4..96078d9499b 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/atan2.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/atan2.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 161 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atan2.al)" +#line 155 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atan2.al)" sub atan2 { usage "atan2(x,y)" if @_ != 2; CORE::atan2($_[0], $_[1]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/atexit.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atexit.al index 7df942dfda6..ae28e584254 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/atexit.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/atexit.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 419 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atexit.al)" +#line 413 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atexit.al)" sub atexit { unimpl "atexit() is C-specific: use END {} instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/atof.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atof.al index 5f4d2c51bbb..15c64c3e78b 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/atof.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/atof.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 423 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atof.al)" +#line 417 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atof.al)" sub atof { unimpl "atof() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/atoi.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atoi.al index 57b26c01896..dabe0325413 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/atoi.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/atoi.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 427 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atoi.al)" +#line 421 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atoi.al)" sub atoi { unimpl "atoi() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/atol.al b/Master/tlpkg/tlperl/lib/auto/POSIX/atol.al index f5784993845..b8ef5b0ef1f 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/atol.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/atol.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 431 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atol.al)" +#line 425 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atol.al)" sub atol { unimpl "atol() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/bsearch.al b/Master/tlpkg/tlperl/lib/auto/POSIX/bsearch.al index 617c37ee740..cc36c9e9b81 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/bsearch.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/bsearch.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 435 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\bsearch.al)" +#line 429 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\bsearch.al)" sub bsearch { unimpl "bsearch() not supplied"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/calloc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/calloc.al index 01b6db33ae8..6154183e4cc 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/calloc.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/calloc.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 439 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\calloc.al)" +#line 433 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\calloc.al)" sub calloc { unimpl "calloc() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/chdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/chdir.al index 9b6b663387d..86420e6c146 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/chdir.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/chdir.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 636 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chdir.al)" +#line 630 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chdir.al)" sub chdir { usage "chdir(directory)" if @_ != 1; CORE::chdir($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/chmod.al b/Master/tlpkg/tlperl/lib/auto/POSIX/chmod.al index 86721b2ae61..b6bf3c50c2e 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/chmod.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/chmod.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 577 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chmod.al)" +#line 571 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chmod.al)" sub chmod { usage "chmod(mode, filename)" if @_ != 2; CORE::chmod($_[0], $_[1]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/chown.al b/Master/tlpkg/tlperl/lib/auto/POSIX/chown.al index 9c12a41fa04..61973238952 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/chown.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/chown.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 641 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chown.al)" +#line 635 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chown.al)" sub chown { usage "chown(uid, gid, filename)" if @_ != 3; CORE::chown($_[0], $_[1], $_[2]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/clearerr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/clearerr.al index bae5e4f2f1d..81b6554f11c 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/clearerr.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/clearerr.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 241 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\clearerr.al)" +#line 235 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\clearerr.al)" sub clearerr { redef "IO::Handle::clearerr()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/closedir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/closedir.al index 425cbd44126..d16e47f717d 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/closedir.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/closedir.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 113 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\closedir.al)" +#line 107 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\closedir.al)" sub closedir { usage "closedir(dirhandle)" if @_ != 1; CORE::closedir($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/cos.al b/Master/tlpkg/tlperl/lib/auto/POSIX/cos.al index 890ef0c2354..e212eb314b2 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/cos.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/cos.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 166 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\cos.al)" +#line 160 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\cos.al)" sub cos { usage "cos(x)" if @_ != 1; CORE::cos($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/creat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/creat.al index 5ed2f6eee46..601fe11fa3f 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/creat.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/creat.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 141 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\creat.al)" +#line 135 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\creat.al)" sub creat { usage "creat(filename, mode)" if @_ != 2; &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/div.al b/Master/tlpkg/tlperl/lib/auto/POSIX/div.al index 5871ee1b0de..5f07bcd2ba6 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/div.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/div.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 443 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\div.al)" +#line 437 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\div.al)" sub div { unimpl "div() is C-specific, use /, % and int instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/errno.al b/Master/tlpkg/tlperl/lib/auto/POSIX/errno.al index e7362909f46..6e498df5ea9 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/errno.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/errno.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 136 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\errno.al)" +#line 130 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\errno.al)" sub errno { usage "errno()" if @_ != 0; $! + 0; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execl.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execl.al index 33e650902bc..892f84173ec 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execl.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/execl.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 646 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execl.al)" +#line 640 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execl.al)" sub execl { unimpl "execl() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execle.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execle.al index 43d56a3bda1..df1982143c5 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execle.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/execle.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 650 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execle.al)" +#line 644 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execle.al)" sub execle { unimpl "execle() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execlp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execlp.al index 093719d84bf..aa74222a879 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execlp.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/execlp.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 654 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execlp.al)" +#line 648 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execlp.al)" sub execlp { unimpl "execlp() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execv.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execv.al index 76273074eb4..48e186de50a 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execv.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/execv.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 658 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execv.al)" +#line 652 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execv.al)" sub execv { unimpl "execv() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execve.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execve.al index 33105ccd6fb..d0136ed0c64 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execve.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/execve.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 662 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execve.al)" +#line 656 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execve.al)" sub execve { unimpl "execve() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/execvp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/execvp.al index 4a17521841e..ec4e0c1c8bb 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/execvp.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/execvp.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 666 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execvp.al)" +#line 660 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execvp.al)" sub execvp { unimpl "execvp() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/exit.al b/Master/tlpkg/tlperl/lib/auto/POSIX/exit.al index 559dd68b1e2..c4c2d353b65 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/exit.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/exit.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 447 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exit.al)" +#line 441 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exit.al)" sub exit { usage "exit(status)" if @_ != 1; CORE::exit($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/exp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/exp.al index 6c278f38250..a74fed03726 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/exp.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/exp.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 171 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exp.al)" +#line 165 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exp.al)" sub exp { usage "exp(x)" if @_ != 1; CORE::exp($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fabs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fabs.al index 7813dc843b5..5fe5a10af3a 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fabs.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fabs.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 176 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fabs.al)" +#line 170 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fabs.al)" sub fabs { usage "fabs(x)" if @_ != 1; CORE::abs($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fclose.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fclose.al index 1312109c813..fb38171b4d0 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fclose.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fclose.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 245 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fclose.al)" +#line 239 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fclose.al)" sub fclose { redef "IO::Handle::close()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fcntl.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fcntl.al index 4ee8654751c..3eb3062a3f9 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fcntl.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fcntl.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 146 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fcntl.al)" +#line 140 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fcntl.al)" sub fcntl { usage "fcntl(filehandle, cmd, arg)" if @_ != 3; CORE::fcntl($_[0], $_[1], $_[2]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fdopen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fdopen.al index d700c0d834a..496945789c1 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fdopen.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fdopen.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 249 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fdopen.al)" +#line 243 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fdopen.al)" sub fdopen { redef "IO::Handle::new_from_fd()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/feof.al b/Master/tlpkg/tlperl/lib/auto/POSIX/feof.al index 917afb91354..18a0183c03d 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/feof.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/feof.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 253 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\feof.al)" +#line 247 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\feof.al)" sub feof { redef "IO::Handle::eof()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/ferror.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ferror.al index f253b1b7741..50bca4a4c4a 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/ferror.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/ferror.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 305 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ferror.al)" +#line 299 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ferror.al)" sub ferror { redef "IO::Handle::error()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fflush.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fflush.al index 1f874ceaf89..336aa4d2184 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fflush.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fflush.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 309 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fflush.al)" +#line 303 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fflush.al)" sub fflush { redef "IO::Handle::flush()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fgetc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fgetc.al index 6832ce432af..6d34733e6d1 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fgetc.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fgetc.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 257 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetc.al)" +#line 251 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetc.al)" sub fgetc { redef "IO::Handle::getc()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fgetpos.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fgetpos.al index 02294ca2b39..a806457288a 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fgetpos.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fgetpos.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 313 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetpos.al)" +#line 307 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetpos.al)" sub fgetpos { redef "IO::Seekable::getpos()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fgets.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fgets.al index c845912c726..c95eb1b7ff5 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fgets.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fgets.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 261 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgets.al)" +#line 255 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgets.al)" sub fgets { redef "IO::Handle::gets()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fileno.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fileno.al index 31dc7db13ab..e50fee694db 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fileno.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fileno.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 265 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fileno.al)" +#line 259 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fileno.al)" sub fileno { redef "IO::Handle::fileno()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fopen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fopen.al index da5d546422c..8d3c49d2ca4 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fopen.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fopen.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 269 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fopen.al)" +#line 263 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fopen.al)" sub fopen { redef "IO::File::open()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fork.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fork.al index 5596e03901d..360776c9cef 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fork.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fork.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 670 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fork.al)" +#line 664 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fork.al)" sub fork { usage "fork()" if @_ != 0; CORE::fork; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fprintf.al index 8a10db84339..a3f0d816c6f 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fprintf.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fprintf.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 273 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fprintf.al)" +#line 267 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fprintf.al)" sub fprintf { unimpl "fprintf() is C-specific--use printf instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fputc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fputc.al index 37e5c79fe9d..42d19c108a3 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fputc.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fputc.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 277 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputc.al)" +#line 271 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputc.al)" sub fputc { unimpl "fputc() is C-specific--use print instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fputs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fputs.al index 6aeb04ee678..f4cc069b631 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fputs.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fputs.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 281 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputs.al)" +#line 275 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputs.al)" sub fputs { unimpl "fputs() is C-specific--use print instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fread.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fread.al index f2f56c48f5e..9110ed3aedb 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fread.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fread.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 285 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fread.al)" +#line 279 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fread.al)" sub fread { unimpl "fread() is C-specific--use read instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/free.al b/Master/tlpkg/tlperl/lib/auto/POSIX/free.al index 1fc25d909e2..0486561c964 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/free.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/free.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 452 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\free.al)" +#line 446 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\free.al)" sub free { unimpl "free() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/freopen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/freopen.al index 867307d33f3..6dac63a5141 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/freopen.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/freopen.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 289 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\freopen.al)" +#line 283 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\freopen.al)" sub freopen { unimpl "freopen() is C-specific--use open instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fscanf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fscanf.al index 4b07b50d257..874e70c2f00 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fscanf.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fscanf.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 293 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fscanf.al)" +#line 287 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fscanf.al)" sub fscanf { unimpl "fscanf() is C-specific--use <> and regular expressions instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fseek.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fseek.al index 5f65bd0e29a..c66351de43b 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fseek.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fseek.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 297 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fseek.al)" +#line 291 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fseek.al)" sub fseek { redef "IO::Seekable::seek()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fsetpos.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fsetpos.al index e865a66d01c..06ce17b9738 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fsetpos.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fsetpos.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 317 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fsetpos.al)" +#line 311 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fsetpos.al)" sub fsetpos { redef "IO::Seekable::setpos()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al index c02f89a3f2f..a7af254612b 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fstat.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 582 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fstat.al)" +#line 576 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fstat.al)" sub fstat { usage "fstat(fd)" if @_ != 1; local *TMP; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fsync.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fsync.al index 357f178623d..a92fb68cc3a 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fsync.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fsync.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 301 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fsync.al)" +#line 295 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fsync.al)" sub fsync { redef "IO::Handle::sync()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/ftell.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ftell.al index f1f1754637c..b74b1c801d0 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/ftell.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/ftell.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 321 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ftell.al)" +#line 315 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ftell.al)" sub ftell { redef "IO::Seekable::tell()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/fwrite.al b/Master/tlpkg/tlperl/lib/auto/POSIX/fwrite.al index 825f8d7e154..4a8ec459424 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/fwrite.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/fwrite.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 325 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fwrite.al)" +#line 319 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fwrite.al)" sub fwrite { unimpl "fwrite() is C-specific--use print instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getc.al index 6dc4bbe38e7..94cbc2fce80 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getc.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getc.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 329 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getc.al)" +#line 323 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getc.al)" sub getc { usage "getc(handle)" if @_ != 1; CORE::getc($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getchar.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getchar.al index b03a3a30708..6ca26cf558b 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getchar.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getchar.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 334 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getchar.al)" +#line 328 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getchar.al)" sub getchar { usage "getchar()" if @_ != 0; CORE::getc(STDIN); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getegid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getegid.al index 9d9a7404bcc..ce52e300e8a 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getegid.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getegid.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 675 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getegid.al)" +#line 669 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getegid.al)" sub getegid { usage "getegid()" if @_ != 0; $) + 0; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getenv.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getenv.al index db932eacaff..5479903df58 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getenv.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getenv.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 456 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getenv.al)" +#line 450 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getenv.al)" sub getenv { usage "getenv(name)" if @_ != 1; $ENV{$_[0]}; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/geteuid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/geteuid.al index ab000a972c9..8f80da03c39 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/geteuid.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/geteuid.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 680 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\geteuid.al)" +#line 674 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\geteuid.al)" sub geteuid { usage "geteuid()" if @_ != 0; $> + 0; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getgid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgid.al index 484d13bffb3..53fbfec9c9a 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getgid.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getgid.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 685 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgid.al)" +#line 679 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgid.al)" sub getgid { usage "getgid()" if @_ != 0; $( + 0; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getgrgid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgrgid.al index 3afd5b121a8..9081f62a645 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getgrgid.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getgrgid.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 151 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrgid.al)" +#line 145 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrgid.al)" sub getgrgid { usage "getgrgid(gid)" if @_ != 1; CORE::getgrgid($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getgrnam.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgrnam.al index 8dcc0fb9eb5..268fdce39cb 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getgrnam.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getgrnam.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 156 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrnam.al)" +#line 150 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrnam.al)" sub getgrnam { usage "getgrnam(name)" if @_ != 1; CORE::getgrnam($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getgroups.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getgroups.al index 95dca454d01..87541ee5ae5 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getgroups.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getgroups.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 690 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgroups.al)" +#line 684 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgroups.al)" sub getgroups { usage "getgroups()" if @_ != 0; my %seen; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getlogin.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getlogin.al index 3fd23d795d0..38e4458162e 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getlogin.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getlogin.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 696 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getlogin.al)" +#line 690 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getlogin.al)" sub getlogin { usage "getlogin()" if @_ != 0; CORE::getlogin(); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getpgrp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpgrp.al index 4f204a60e60..19b98ff7a55 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getpgrp.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getpgrp.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 701 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpgrp.al)" +#line 695 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpgrp.al)" sub getpgrp { usage "getpgrp()" if @_ != 0; CORE::getpgrp; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getpid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpid.al index fe5c3c351cf..8e10257b7c1 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getpid.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getpid.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 706 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpid.al)" +#line 700 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpid.al)" sub getpid { usage "getpid()" if @_ != 0; $$; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getppid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getppid.al index 583ada5edba..66d223cdc96 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getppid.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getppid.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 711 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getppid.al)" +#line 705 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getppid.al)" sub getppid { usage "getppid()" if @_ != 0; CORE::getppid; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getpwnam.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpwnam.al index 00c3c6a7fda..97c932313ee 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getpwnam.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getpwnam.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 201 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwnam.al)" +#line 195 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwnam.al)" sub getpwnam { usage "getpwnam(name)" if @_ != 1; CORE::getpwnam($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getpwuid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getpwuid.al index 488bc594a04..588b05f1d49 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getpwuid.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getpwuid.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 206 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwuid.al)" +#line 200 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwuid.al)" sub getpwuid { usage "getpwuid(uid)" if @_ != 1; CORE::getpwuid($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/gets.al b/Master/tlpkg/tlperl/lib/auto/POSIX/gets.al index e703a86f8fb..b3f09bb1887 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/gets.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/gets.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 339 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gets.al)" +#line 333 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gets.al)" sub gets { usage "gets()" if @_ != 0; scalar <STDIN>; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/getuid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/getuid.al index 8702cbf6bc5..1fc67d11692 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/getuid.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/getuid.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 716 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getuid.al)" +#line 710 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getuid.al)" sub getuid { usage "getuid()" if @_ != 0; $<; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/gmtime.al b/Master/tlpkg/tlperl/lib/auto/POSIX/gmtime.al index b976b322410..ebc46ef855b 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/gmtime.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/gmtime.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 616 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gmtime.al)" +#line 610 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gmtime.al)" sub gmtime { usage "gmtime(time)" if @_ != 1; CORE::gmtime($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/isatty.al b/Master/tlpkg/tlperl/lib/auto/POSIX/isatty.al index a5511b672a0..6b1a13f2b72 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/isatty.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/isatty.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 721 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\isatty.al)" +#line 715 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\isatty.al)" sub isatty { usage "isatty(filehandle)" if @_ != 1; -t $_[0]; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/kill.al b/Master/tlpkg/tlperl/lib/auto/POSIX/kill.al index 193d93e845e..e1c868b5118 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/kill.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/kill.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 227 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\kill.al)" +#line 221 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\kill.al)" sub kill { usage "kill(pid, sig)" if @_ != 2; CORE::kill $_[1], $_[0]; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/labs.al b/Master/tlpkg/tlperl/lib/auto/POSIX/labs.al index 04133e79244..c40bc31a9a3 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/labs.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/labs.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 461 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\labs.al)" +#line 455 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\labs.al)" sub labs { unimpl "labs() is C-specific, use abs instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/ldiv.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ldiv.al index c6679286485..5564757ed96 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/ldiv.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/ldiv.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 465 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ldiv.al)" +#line 459 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ldiv.al)" sub ldiv { unimpl "ldiv() is C-specific, use /, % and int instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/link.al b/Master/tlpkg/tlperl/lib/auto/POSIX/link.al index d68d80dcff6..d97f42335b0 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/link.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/link.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 726 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\link.al)" +#line 720 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\link.al)" sub link { usage "link(oldfilename, newfilename)" if @_ != 2; CORE::link($_[0], $_[1]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/load_imports.al b/Master/tlpkg/tlperl/lib/auto/POSIX/load_imports.al index cf692f646ae..d3ed86477ca 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/load_imports.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/load_imports.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 759 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\load_imports.al)" +#line 753 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\load_imports.al)" sub load_imports { %EXPORT_TAGS = ( @@ -77,7 +77,8 @@ sub load_imports { SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL SIGPIPE %SIGRT SIGRTMIN SIGRTMAX SIGQUIT SIGSEGV SIGSTOP - SIGTERM SIGTSTP SIGTTIN SIGTTOU SIGUSR1 SIGUSR2 + SIGTERM SIGTSTP SIGTTIN SIGTTOU SIGUSR1 SIGUSR2 SIGBUS + SIGPOLL SIGPROF SIGSYS SIGTRAP SIGURG SIGVTALRM SIGXCPU SIGXFSZ SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK SIG_UNBLOCK raise sigaction signal sigpending sigprocmask sigsuspend)], @@ -160,7 +161,7 @@ sub load_imports { my %export; @export{map {@$_} values %EXPORT_TAGS} = (); # Doing the de-dup with a temporary hash has the advantage that the SVs in - # @EXPORT are actually shared hash key sacalars, which will save some memory. + # @EXPORT are actually shared hash key scalars, which will save some memory. push @EXPORT, keys %export; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/localtime.al b/Master/tlpkg/tlperl/lib/auto/POSIX/localtime.al index c2d15ad16ae..6c157a97cbf 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/localtime.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/localtime.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 621 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\localtime.al)" +#line 615 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\localtime.al)" sub localtime { usage "localtime(time)" if @_ != 1; CORE::localtime($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/log.al b/Master/tlpkg/tlperl/lib/auto/POSIX/log.al index 682dea9598f..3316d5b3173 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/log.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/log.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 181 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\log.al)" +#line 175 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\log.al)" sub log { usage "log(x)" if @_ != 1; CORE::log($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/longjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/longjmp.al index b62bd3c94c2..675581fe7a8 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/longjmp.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/longjmp.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 211 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\longjmp.al)" +#line 205 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\longjmp.al)" sub longjmp { unimpl "longjmp() is C-specific: use die instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/malloc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/malloc.al index 0922d0174b5..8fd086cf14e 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/malloc.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/malloc.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 469 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\malloc.al)" +#line 463 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\malloc.al)" sub malloc { unimpl "malloc() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/memchr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memchr.al index 7344db15757..c477890e150 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/memchr.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/memchr.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 494 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memchr.al)" +#line 488 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memchr.al)" sub memchr { unimpl "memchr() is C-specific, use index() instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/memcmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memcmp.al index a5c9844ea0d..c89acda1e50 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/memcmp.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/memcmp.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 498 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcmp.al)" +#line 492 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcmp.al)" sub memcmp { unimpl "memcmp() is C-specific, use eq instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/memcpy.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memcpy.al index 53c62d6bb4e..4afbf544c39 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/memcpy.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/memcpy.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 502 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcpy.al)" +#line 496 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcpy.al)" sub memcpy { unimpl "memcpy() is C-specific, use = instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/memmove.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memmove.al index a3cb8905083..e3bad3614b3 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/memmove.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/memmove.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 506 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memmove.al)" +#line 500 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memmove.al)" sub memmove { unimpl "memmove() is C-specific, use = instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/memset.al b/Master/tlpkg/tlperl/lib/auto/POSIX/memset.al index b71c7b65ed3..1c45556e8f7 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/memset.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/memset.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 510 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memset.al)" +#line 504 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memset.al)" sub memset { unimpl "memset() is C-specific, use x instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/mkdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/mkdir.al index 290a5df0c80..58c5bb46439 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/mkdir.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/mkdir.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 591 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\mkdir.al)" +#line 585 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\mkdir.al)" sub mkdir { usage "mkdir(directoryname, mode)" if @_ != 2; CORE::mkdir($_[0], $_[1]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/offsetof.al b/Master/tlpkg/tlperl/lib/auto/POSIX/offsetof.al index 94fb579e749..c3ca5b0db0e 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/offsetof.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/offsetof.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 237 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\offsetof.al)" +#line 231 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\offsetof.al)" sub offsetof { unimpl "offsetof() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/opendir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/opendir.al index 1112e2eaeb5..fa24c4db3e7 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/opendir.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/opendir.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 118 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\opendir.al)" +#line 112 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\opendir.al)" sub opendir { usage "opendir(directory)" if @_ != 1; my $dirhandle; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/perror.al b/Master/tlpkg/tlperl/lib/auto/POSIX/perror.al index c35baf5a47b..1883ed99f5b 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/perror.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/perror.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 344 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\perror.al)" +#line 338 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\perror.al)" sub perror { print STDERR "@_: " if @_; print STDERR $!,"\n"; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/pow.al b/Master/tlpkg/tlperl/lib/auto/POSIX/pow.al index 5cc8fb73a39..2ef255d1784 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/pow.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/pow.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 186 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\pow.al)" +#line 180 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\pow.al)" sub pow { usage "pow(x,exponent)" if @_ != 2; $_[0] ** $_[1]; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/printf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/printf.al index 3c0e704371e..6b7735a4bc4 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/printf.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/printf.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 349 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\printf.al)" +#line 343 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\printf.al)" sub printf { usage "printf(pattern, args...)" if @_ < 1; CORE::printf STDOUT @_; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/putc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/putc.al index 561218c6e7c..3c45d7cfa95 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/putc.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/putc.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 354 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putc.al)" +#line 348 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putc.al)" sub putc { unimpl "putc() is C-specific--use print instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/putchar.al b/Master/tlpkg/tlperl/lib/auto/POSIX/putchar.al index 90edc4f1dde..6b45167b3e4 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/putchar.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/putchar.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 358 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putchar.al)" +#line 352 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putchar.al)" sub putchar { unimpl "putchar() is C-specific--use print instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/puts.al b/Master/tlpkg/tlperl/lib/auto/POSIX/puts.al index b35380c91b2..c1a7a69af60 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/puts.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/puts.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 362 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\puts.al)" +#line 356 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\puts.al)" sub puts { unimpl "puts() is C-specific--use print instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/qsort.al b/Master/tlpkg/tlperl/lib/auto/POSIX/qsort.al index e0e8438d51e..4e6248619d4 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/qsort.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/qsort.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 473 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\qsort.al)" +#line 467 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\qsort.al)" sub qsort { unimpl "qsort() is C-specific, use sort instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/raise.al b/Master/tlpkg/tlperl/lib/auto/POSIX/raise.al index 25998d61b6c..1609ef6ce2b 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/raise.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/raise.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 232 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\raise.al)" +#line 226 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\raise.al)" sub raise { usage "raise(sig)" if @_ != 1; CORE::kill $_[0], $$; # Is this good enough? diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/rand.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rand.al index ea6457f00d5..fb9460c53df 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/rand.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/rand.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 477 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rand.al)" +#line 471 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rand.al)" sub rand { unimpl "rand() is non-portable, use Perl's rand instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/readdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/readdir.al index 458c7cda637..101aae64b67 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/readdir.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/readdir.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 126 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\readdir.al)" +#line 120 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\readdir.al)" sub readdir { usage "readdir(dirhandle)" if @_ != 1; CORE::readdir($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/realloc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/realloc.al index a7332965b92..3179078fe9c 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/realloc.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/realloc.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 481 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\realloc.al)" +#line 475 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\realloc.al)" sub realloc { unimpl "realloc() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/redef.al b/Master/tlpkg/tlperl/lib/auto/POSIX/redef.al index 1d6197f7dc3..c336d2e4bf0 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/redef.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/redef.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 85 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\redef.al)" +#line 79 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\redef.al)" sub redef { my ($mess) = @_; croak "Use method $mess instead"; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/remove.al b/Master/tlpkg/tlperl/lib/auto/POSIX/remove.al index 32665fa8ea8..8b8dbea7d72 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/remove.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/remove.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 366 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\remove.al)" +#line 360 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\remove.al)" sub remove { usage "remove(filename)" if @_ != 1; (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/rename.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rename.al index 6d04ef039a8..091ed50c949 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/rename.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/rename.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 371 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rename.al)" +#line 365 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rename.al)" sub rename { usage "rename(oldfilename, newfilename)" if @_ != 2; CORE::rename($_[0], $_[1]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/rewind.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rewind.al index 0f97af8f961..b7fdfd14f0d 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/rewind.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/rewind.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 376 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewind.al)" +#line 370 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewind.al)" sub rewind { usage "rewind(filehandle)" if @_ != 1; CORE::seek($_[0],0,0); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/rewinddir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rewinddir.al index 1c960662ea9..5d2f65c6c89 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/rewinddir.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/rewinddir.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 131 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewinddir.al)" +#line 125 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewinddir.al)" sub rewinddir { usage "rewinddir(dirhandle)" if @_ != 1; CORE::rewinddir($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/rmdir.al b/Master/tlpkg/tlperl/lib/auto/POSIX/rmdir.al index 54af051f17e..8d5702672a8 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/rmdir.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/rmdir.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 731 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rmdir.al)" +#line 725 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rmdir.al)" sub rmdir { usage "rmdir(directoryname)" if @_ != 1; CORE::rmdir($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/scanf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/scanf.al index 7b0784b3831..cd975746c56 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/scanf.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/scanf.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 381 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\scanf.al)" +#line 375 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\scanf.al)" sub scanf { unimpl "scanf() is C-specific--use <> and regular expressions instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/setbuf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/setbuf.al index 4b56a02e221..5e632f795e8 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/setbuf.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/setbuf.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 736 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setbuf.al)" +#line 730 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setbuf.al)" sub setbuf { redef "IO::Handle::setbuf()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/setjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/setjmp.al index 6154bbf8a44..f72778b5cee 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/setjmp.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/setjmp.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 215 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setjmp.al)" +#line 209 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setjmp.al)" sub setjmp { unimpl "setjmp() is C-specific: use eval {} instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/setvbuf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/setvbuf.al index bc45457297a..538828c6ef8 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/setvbuf.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/setvbuf.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 740 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setvbuf.al)" +#line 734 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setvbuf.al)" sub setvbuf { redef "IO::Handle::setvbuf()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/siglongjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/siglongjmp.al index 46abe2bdb96..30a9004f4d4 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/siglongjmp.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/siglongjmp.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 219 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\siglongjmp.al)" +#line 213 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\siglongjmp.al)" sub siglongjmp { unimpl "siglongjmp() is C-specific: use die instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sigsetjmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sigsetjmp.al index 3ba63224a31..56024883d3c 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sigsetjmp.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/sigsetjmp.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 223 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sigsetjmp.al)" +#line 217 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sigsetjmp.al)" sub sigsetjmp { unimpl "sigsetjmp() is C-specific: use eval {} instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sin.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sin.al index d9079ba09c4..74288e6b7a7 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sin.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/sin.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 191 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sin.al)" +#line 185 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sin.al)" sub sin { usage "sin(x)" if @_ != 1; CORE::sin($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sleep.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sleep.al index 05cba00f359..fdc5520361e 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sleep.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/sleep.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 744 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sleep.al)" +#line 738 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sleep.al)" sub sleep { usage "sleep(seconds)" if @_ != 1; $_[0] - CORE::sleep($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sprintf.al index e32b6749d0f..6f913256286 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sprintf.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/sprintf.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 385 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sprintf.al)" +#line 379 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sprintf.al)" sub sprintf { usage "sprintf(pattern,args)" if @_ == 0; CORE::sprintf(shift,@_); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sqrt.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sqrt.al index ea41719f675..05a46e9b97a 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sqrt.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/sqrt.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 196 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sqrt.al)" +#line 190 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sqrt.al)" sub sqrt { usage "sqrt(x)" if @_ != 1; CORE::sqrt($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/srand.al b/Master/tlpkg/tlperl/lib/auto/POSIX/srand.al index 9c8cd65ad95..00e69f77c66 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/srand.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/srand.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 485 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\srand.al)" +#line 479 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\srand.al)" sub srand { unimpl "srand()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/sscanf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/sscanf.al index a9f418536fd..3d3315ebf72 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/sscanf.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/sscanf.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 390 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sscanf.al)" +#line 384 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sscanf.al)" sub sscanf { unimpl "sscanf() is C-specific--use regular expressions instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/stat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/stat.al index 23373a26950..7106b62e7c3 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/stat.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/stat.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 596 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\stat.al)" +#line 590 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\stat.al)" sub stat { usage "stat(filename)" if @_ != 1; CORE::stat($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strcat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcat.al index 112037d7bb9..298b2c7f9eb 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strcat.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strcat.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 514 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcat.al)" +#line 508 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcat.al)" sub strcat { unimpl "strcat() is C-specific, use .= instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strchr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strchr.al index 0e4d59d4d22..c8da119780e 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strchr.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strchr.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 518 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strchr.al)" +#line 512 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strchr.al)" sub strchr { unimpl "strchr() is C-specific, use index() instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strcmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcmp.al index 026444d1aa0..3985898d6b0 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strcmp.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strcmp.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 522 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcmp.al)" +#line 516 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcmp.al)" sub strcmp { unimpl "strcmp() is C-specific, use eq instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strcpy.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcpy.al index 41895d60428..917041a3e1b 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strcpy.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strcpy.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 526 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcpy.al)" +#line 520 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcpy.al)" sub strcpy { unimpl "strcpy() is C-specific, use = instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strcspn.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strcspn.al index e3979bf3673..7243d05d4b3 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strcspn.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strcspn.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 530 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcspn.al)" +#line 524 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcspn.al)" sub strcspn { unimpl "strcspn() is C-specific, use regular expressions instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strerror.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strerror.al index 4364eb48fec..ebb1308211e 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strerror.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strerror.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 534 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strerror.al)" +#line 528 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strerror.al)" sub strerror { usage "strerror(errno)" if @_ != 1; local $! = $_[0]; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strlen.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strlen.al index 2f9ee7bf0a2..b1ebb735327 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strlen.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strlen.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 540 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strlen.al)" +#line 534 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strlen.al)" sub strlen { unimpl "strlen() is C-specific, use length instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strncat.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strncat.al index b909bd27c25..96c5d312138 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strncat.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strncat.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 544 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncat.al)" +#line 538 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncat.al)" sub strncat { unimpl "strncat() is C-specific, use .= instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strncmp.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strncmp.al index dde452e3628..1b2739e30b8 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strncmp.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strncmp.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 548 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncmp.al)" +#line 542 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncmp.al)" sub strncmp { unimpl "strncmp() is C-specific, use eq instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strncpy.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strncpy.al index 6b2d97f8202..12a299c0853 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strncpy.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strncpy.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 552 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncpy.al)" +#line 546 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncpy.al)" sub strncpy { unimpl "strncpy() is C-specific, use = instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strpbrk.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strpbrk.al index b3a1f91897b..cc86da475d7 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strpbrk.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strpbrk.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 556 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strpbrk.al)" +#line 550 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strpbrk.al)" sub strpbrk { unimpl "strpbrk() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strrchr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strrchr.al index 8b11901a304..775d4a68811 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strrchr.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strrchr.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 560 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strrchr.al)" +#line 554 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strrchr.al)" sub strrchr { unimpl "strrchr() is C-specific, use rindex() instead"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strspn.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strspn.al index 098bf697de1..e794c642065 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strspn.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strspn.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 564 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strspn.al)" +#line 558 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strspn.al)" sub strspn { unimpl "strspn() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strstr.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strstr.al index ecc94a24f2c..d3b931b0f00 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strstr.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strstr.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 568 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strstr.al)" +#line 562 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strstr.al)" sub strstr { usage "strstr(big, little)" if @_ != 2; CORE::index($_[0], $_[1]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/strtok.al b/Master/tlpkg/tlperl/lib/auto/POSIX/strtok.al index f065d58b27c..efa734c98d2 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/strtok.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/strtok.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 573 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strtok.al)" +#line 567 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strtok.al)" sub strtok { unimpl "strtok() is C-specific, stopped"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/system.al b/Master/tlpkg/tlperl/lib/auto/POSIX/system.al index 17d9b552290..4be09fe4acd 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/system.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/system.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 489 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\system.al)" +#line 483 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\system.al)" sub system { usage "system(command)" if @_ != 1; CORE::system($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/time.al b/Master/tlpkg/tlperl/lib/auto/POSIX/time.al index f588c89117f..0d1325a0328 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/time.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/time.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 626 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\time.al)" +#line 620 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\time.al)" sub time { usage "time()" if @_ != 0; CORE::time; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/tmpfile.al b/Master/tlpkg/tlperl/lib/auto/POSIX/tmpfile.al index ebc5850baf8..42862aaa391 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/tmpfile.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/tmpfile.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 394 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tmpfile.al)" +#line 388 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tmpfile.al)" sub tmpfile { redef "IO::File::new_tmpfile()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/tolower.al b/Master/tlpkg/tlperl/lib/auto/POSIX/tolower.al index 35a40ad5026..16d7827a384 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/tolower.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/tolower.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 103 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tolower.al)" +#line 97 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tolower.al)" sub tolower { usage "tolower(string)" if @_ != 1; lc($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/toupper.al b/Master/tlpkg/tlperl/lib/auto/POSIX/toupper.al index 47f12bd4932..6aa25676972 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/toupper.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/toupper.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 108 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\toupper.al)" +#line 102 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\toupper.al)" sub toupper { usage "toupper(string)" if @_ != 1; uc($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/umask.al b/Master/tlpkg/tlperl/lib/auto/POSIX/umask.al index e1c107c8f44..b33006c3059 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/umask.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/umask.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 601 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\umask.al)" +#line 595 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\umask.al)" sub umask { usage "umask(mask)" if @_ != 1; CORE::umask($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/ungetc.al b/Master/tlpkg/tlperl/lib/auto/POSIX/ungetc.al index ea27e327c46..69cbdc0548b 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/ungetc.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/ungetc.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 398 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ungetc.al)" +#line 392 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ungetc.al)" sub ungetc { redef "IO::Handle::ungetc()"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/unimpl.al b/Master/tlpkg/tlperl/lib/auto/POSIX/unimpl.al index bc48d9b3023..8dc7eb60a11 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/unimpl.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/unimpl.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 90 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unimpl.al)" +#line 84 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unimpl.al)" sub unimpl { my ($mess) = @_; $mess =~ s/xxx//; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/unlink.al b/Master/tlpkg/tlperl/lib/auto/POSIX/unlink.al index 9a9a0b668b6..898b787193e 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/unlink.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/unlink.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 749 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unlink.al)" +#line 743 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unlink.al)" sub unlink { usage "unlink(filename)" if @_ != 1; CORE::unlink($_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/usage.al b/Master/tlpkg/tlperl/lib/auto/POSIX/usage.al index 83c0cdf9e8a..bc094cfbd19 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/usage.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/usage.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 80 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\usage.al)" +#line 74 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\usage.al)" sub usage { my ($mess) = @_; croak "Usage: POSIX::$mess"; diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/utime.al b/Master/tlpkg/tlperl/lib/auto/POSIX/utime.al index 07d84838ab3..52835233e82 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/utime.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/utime.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 754 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\utime.al)" +#line 748 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\utime.al)" sub utime { usage "utime(filename, atime, mtime)" if @_ != 3; CORE::utime($_[1], $_[2], $_[0]); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/vfprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/vfprintf.al index 461a48fd006..5de3658c7eb 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/vfprintf.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/vfprintf.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 402 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vfprintf.al)" +#line 396 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vfprintf.al)" sub vfprintf { unimpl "vfprintf() is C-specific"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/vprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/vprintf.al index a0d2bd202fd..c397df391a8 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/vprintf.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/vprintf.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 406 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vprintf.al)" +#line 400 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vprintf.al)" sub vprintf { unimpl "vprintf() is C-specific"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/vsprintf.al b/Master/tlpkg/tlperl/lib/auto/POSIX/vsprintf.al index 835cf3de11c..7af2c9eb3b3 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/vsprintf.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/vsprintf.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 410 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vsprintf.al)" +#line 404 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vsprintf.al)" sub vsprintf { unimpl "vsprintf() is C-specific"; } diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/wait.al b/Master/tlpkg/tlperl/lib/auto/POSIX/wait.al index fb68d776372..4704b25f4ad 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/wait.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/wait.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 606 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\wait.al)" +#line 600 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\wait.al)" sub wait { usage "wait()" if @_ != 0; CORE::wait(); diff --git a/Master/tlpkg/tlperl/lib/auto/POSIX/waitpid.al b/Master/tlpkg/tlperl/lib/auto/POSIX/waitpid.al index a211a453aa0..9a69b3dd226 100644 --- a/Master/tlpkg/tlperl/lib/auto/POSIX/waitpid.al +++ b/Master/tlpkg/tlperl/lib/auto/POSIX/waitpid.al @@ -3,7 +3,7 @@ # See AutoSplit.pm. package POSIX; -#line 611 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\waitpid.al)" +#line 605 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\waitpid.al)" sub waitpid { usage "waitpid(pid, options)" if @_ != 2; CORE::waitpid($_[0], $_[1]); |