1 files changed, 0 insertions, 20 deletions
diff --git a/contrib/perl5/t/op/wantarray.t b/contrib/perl5/t/op/wantarray.t
deleted file mode 100755
index 4b6f37c..0000000
--- a/contrib/perl5/t/op/wantarray.t
+++ /dev/null
@@ -1,20 +0,0 @@
-#!./perl
-
-print "1..7\n";
-sub context {
-  my ( $cona, $testnum ) = @_;
-  my $conb = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';
-  unless ( $cona eq $conb ) {
-	print "# Context $conb should be $cona\nnot ";
-  }
-  print "ok $testnum\n";
-}
-
-context('V',1);
-$a = context('S',2);
-@a = context('A',3);
-scalar context('S',4);
-$a = scalar context('S',5);
-($a) = context('A',6);
-($a) = scalar context('S',7);
-1;