From c03358ae95504d9be11f5038167b9af91264b3a8 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 13 Oct 2000 23:20:30 +0000 Subject: [PATCH] Make the test acknowledge that self-ties are disabled as #7213 said. p4raw-id: //depot/perl@7227 --- t/op/tie.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.7.4