diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1997-04-17 00:00:00 +0000 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-17 00:00:00 +0000 |
| commit | 96e4d5b14cf2dfb0235faa8bc3f701c15b15bb05 (patch) | |
| tree | 573ae82e0e6a92c453a5b5cec1b10dc2f99362fe /t | |
| parent | 6877a1cf6ff3f0f711772ea75e579e2e7219cc46 (diff) | |
| download | perl-96e4d5b14cf2dfb0235faa8bc3f701c15b15bb05.tar.gz | |
[inseparable changes from match from perl-5.003_97e to perl-5.003_97f]
CORE LANGUAGE CHANGES
Subject: New operator systell()
From: Chip Salzenberg <chip@perl.com>
Files: doio.c ext/Opcode/Opcode.pm keywords.pl opcode.pl pod/perldelta.pod pod/perldiag.pod pod/perlfunc.pod pp_sys.c t/op/sysio.t toke.c
Subject: Allow constant sub to be optimized when called with parens
From: Chip Salzenberg <chip@perl.com>
Files: toke.c
Subject: Make {,un}pack fail on invalid pack types
From: Chip Salzenberg <chip@perl.com>
Files: pod/perldiag.pod pp.c
CORE PORTABILITY
Subject: Fix bitwise ops and {,un}pack() on Cray CPUs
From: Chip Salzenberg <chip@perl.com>
Files: pp.c
Subject: VMS update
From: Charles Bailey <bailey@hmivax.humgen.upenn.edu>
Files: lib/Cwd.pm lib/File/Path.pm lib/FindBin.pm vms/perly_c.vms vms/vms.c vms/writemain.pl
Subject: Win32 update (three patches)
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: lib/Cwd.pm lib/ExtUtils/MM_Unix.pm lib/ExtUtils/MM_Win32.pm lib/File/Basename.pm win32/Makefile win32/makedef.pl win32/perllib.c win32/win32.c win32/win32iop.h
DOCUMENTATION
Subject: Document size restrictions for packed integers
From: Jarkko Hietaniemi <Jarkko.Hietaniemi@cc.hut.fi>
Files: pod/perlfunc.pod
LIBRARY AND EXTENSIONS
Subject: Fix bug in Opcode when (maxo & 15) > 8
From: Chip Salzenberg <chip@perl.com>
Files: ext/Opcode/Makefile.PL ext/Opcode/Opcode.pm ext/Opcode/Opcode.xs
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/sysio.t | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/t/op/sysio.t b/t/op/sysio.t index f2e72cfb6b..6135cd3465 100755 --- a/t/op/sysio.t +++ b/t/op/sysio.t @@ -1,6 +1,6 @@ #!./perl -print "1..32\n"; +print "1..34\n"; chdir('op') || die "sysio.t: cannot look for myself: $!"; @@ -164,17 +164,21 @@ print "ok 29\n"; print 'not ' unless ($b eq '#!ererl'); print "ok 30\n"; -# test sysseek +# test sysseek and systell sysseek(I, 2, 0); 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); sysread(I, $b, 4); print 'not ' unless $b eq 'rerl'; -print "ok 32\n"; +print "ok 33\n"; +print 'not ' unless systell(I) == 7; +print "ok 34\n"; close(I); |