From: Jarkko Hietaniemi Date: Fri, 13 Oct 2000 23:20:30 +0000 (+0000) Subject: Make the test acknowledge that self-ties are disabled as #7213 said. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c03358ae95504d9be11f5038167b9af91264b3a8;p=p5sagit%2Fp5-mst-13.2.git Make the test acknowledge that self-ties are disabled as #7213 said. p4raw-id: //depot/perl@7227 --- diff --git a/t/op/tie.t b/t/op/tie.t index cbf92c6..afcc4a1 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -13,6 +13,7 @@ $|=1; # catch warnings into fatal errors $SIG{__WARN__} = sub { die "WARNING: @_" } ; +$SIG{__DIE__} = sub { die @_ }; undef $/; @prgs = split "\n########\n", ; @@ -25,7 +26,7 @@ for (@prgs){ $results = $@ ; $results =~ s/\n+$//; $expected =~ s/\n+$//; - if ( $status or $results and $results !~ /^WARNING: $expected/){ + if ( $status or $results and $results !~ /^(WARNING: )?$expected/){ print STDERR "STATUS: $status\n"; print STDERR "PROG: $prog\n"; print STDERR "EXPECTED:\n$expected\n"; @@ -173,6 +174,7 @@ sub Self::DESTROY { $b = $_[0] + 0; } } die unless $a == $b; EXPECT +Self-ties are not supported ######## # Interaction of tie and vec