@@ -126,7 +126,7 @@ is(@lines7[3], "... Its not over yet!", '$in.lines worked in list context');
126
126
ok ($ in7 . close , ' file closed okay (7)' );
127
127
128
128
{
129
- # test reading a file into an array and then closing before
129
+ # test reading a file into an array and then closing before
130
130
# doing anything with the array (in other words, is perl too lazy)
131
131
my $ in8 = open ($ filename );
132
132
# ?niecza skip 'open does not yet produce an IO object'
@@ -194,7 +194,7 @@ ok($in8.close, 'file closed okay (in8)');
194
194
195
195
# ?niecza skip 'Not yet able to open both :r and :w'
196
196
{
197
- my $ fh9 = open ($ filename , : r, : w); # was "<+" ?
197
+ my $ fh9 = open ($ filename , : r, : w); # was "<+" ?
198
198
isa-ok ($ fh9 , IO ::Handle);
199
199
# my $line9_1 = get($fh9);
200
200
# is($line9_1, "Hello World");
@@ -211,7 +211,7 @@ ok($in8.close, 'file closed okay (in8)');
211
211
212
212
# ?niecza skip 'Not yet able to open both :r and :w'
213
213
{
214
- my $ fh10 = open ($ filename , : rw); # was "<+" ?
214
+ my $ fh10 = open ($ filename , : rw); # was "<+" ?
215
215
isa-ok ($ fh10 , IO ::Handle);
216
216
$ fh10 . close ;
217
217
# ok($fh10.close, 'file closed okay (10)');
0 commit comments