dougm 01/12/17 22:02:29
Modified: t/response/TestAPR perlio.pm
Log:
tell works now; XXX broken comment
Revision Changes Path
1.5 +1 -1 modperl-2.0/t/response/TestAPR/perlio.pm
Index: perlio.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/perlio.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- perlio.pm 2001/12/18 06:01:43 1.4
+++ perlio.pm 2001/12/18 06:02:29 1.5
@@ -80,7 +80,7 @@
my $pos = 3;
seek $fh, $pos, Fcntl::SEEK_SET();
- # XXX: broken
+
my $got = tell($fh);
ok t_cmp($pos,
$got,
