diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1997-04-18 00:00:00 +0000 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-18 00:00:00 +0000 |
| commit | 8903cb82b09fb34870c757f52ce481b09be4b606 (patch) | |
| tree | 7efa8803eba367f7f28b7667ac864f893e3a983f /t | |
| parent | b306bf39bf31f44f4dcbcdf8bc1d3be82f5e6da3 (diff) | |
| download | perl-8903cb82b09fb34870c757f52ce481b09be4b606.tar.gz | |
[inseparable changes from match from perl-5.003_97f to perl-5.003_97g]
CORE LANGUAGE CHANGES
Subject: Improve sysseek(), remove systell(), fix Opcode
From: Chip Salzenberg <chip@perl.com>
Files: doio.c ext/Opcode/Makefile.PL ext/Opcode/Opcode.pm ext/Opcode/Opcode.xs global.sym keywords.pl opcode.pl pod/perldelta.pod pod/perldiag.pod pod/perlfunc.pod pp_sys.c proto.h t/op/sysio.t toke.c
DOCUMENTATION
Subject: Document {,un}pack changes
Date: Fri, 18 Apr 97 13:49:39 BST
From: Paul Marquess <pmarquess@bfsec.bt.co.uk>
Files: pod/perldelta.pod pod/perldiag.pod
Msg-ID: 9704181249.AA11733@claudius.bfsec.bt.co.uk
(applied based on p5p patch as commit 7f505e5d2748dc2677688b22967678392a186b16)
OTHER CORE CHANGES
Subject: SECURITY FIX: 'Identifier too long'
From: Chip Salzenberg <chip@perl.com>
Files: pod/perldelta.pod pod/perldiag.pod toke.c
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/sysio.t | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/t/op/sysio.t b/t/op/sysio.t index 6135cd3465..0af333db84 100755 --- a/t/op/sysio.t +++ b/t/op/sysio.t @@ -1,6 +1,6 @@ #!./perl -print "1..34\n"; +print "1..36\n"; chdir('op') || die "sysio.t: cannot look for myself: $!"; @@ -164,22 +164,25 @@ print "ok 29\n"; print 'not ' unless ($b eq '#!ererl'); print "ok 30\n"; -# test sysseek and systell +# test sysseek -sysseek(I, 2, 0); +print 'not ' unless sysseek(I, 2, 0) == 2; +print "ok 31\n"; sysread(I, $b, 3); print 'not ' unless $b eq 'ere'; -print "ok 31\n"; -print 'not ' unless systell(I) == 5; print "ok 32\n"; -sysseek(I, -2, 1); +print 'not ' unless sysseek(I, -2, 1) == 3; +print "ok 33\n"; sysread(I, $b, 4); print 'not ' unless $b eq 'rerl'; -print "ok 33\n"; -print 'not ' unless systell(I) == 7; print "ok 34\n"; +print 'not ' unless sysseek(I, 0, 0) eq '0 but true'; +print "ok 35\n"; +print 'not ' if defined sysseek(I, -1, 1); +print "ok 36\n"; + close(I); unlink $outfile; |