stas 2004/08/19 13:16:06
Modified: t/response/TestModperl pnotes.pm
Log:
oops, 5.8.1 is fine
Revision Changes Path
1.7 +1 -1 modperl-2.0/t/response/TestModperl/pnotes.pm
Index: pnotes.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/pnotes.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -u -r1.6 -r1.7
--- pnotes.pm 19 Aug 2004 20:15:38 -0000 1.6
+++ pnotes.pm 19 Aug 2004 20:16:05 -0000 1.7
@@ -35,7 +35,7 @@
ok t_cmp($r->pnotes('pnotes_foo'), undef,
q{unset entry contents});
my $exists = exists $r->pnotes->{'pnotes_foo'};
- $exists = 1 if $] <= 5.008001; # changed in perl 5.8.1
+ $exists = 1 if $] < 5.008001; # changed in perl 5.8.1
ok $exists;
# now delete completely (possible only via the hash inteface)
