stas 2004/08/19 13:15:38
Modified: t/response/TestModperl pnotes.pm
Log:
use a proper workaround
Revision Changes Path
1.6 +3 -2 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.5
retrieving revision 1.6
diff -u -u -r1.5 -r1.6
--- pnotes.pm 19 Aug 2004 18:07:46 -0000 1.5
+++ pnotes.pm 19 Aug 2004 20:15:38 -0000 1.6
@@ -34,8 +34,9 @@
$r->pnotes('pnotes_foo', undef);
ok t_cmp($r->pnotes('pnotes_foo'), undef,
q{unset entry contents});
- # XXX: deal with it (fails on 5.8.0/ passes on 5.8.5)
- ok exists $r->pnotes->{'pnotes_foo'} || 1;
+ my $exists = exists $r->pnotes->{'pnotes_foo'};
+ $exists = 1 if $] <= 5.008001; # changed in perl 5.8.1
+ ok $exists;
# now delete completely (possible only via the hash inteface)
delete $r->pnotes()->{'pnotes_foo'};
