Deprecate above \xFF in bitwise string ops

[perl5.git] / t / op / wantarray.t

diff --git a/t/op/wantarray.t b/t/op/wantarray.t
index 433a839..854cca6 100644 (file)
--- a/t/op/wantarray.t
+++ b/t/op/wantarray.t
@@ -2,8 +2,8 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
     require './test.pl';
+    set_up_inc('../lib');
 }
 
 use strict;
@@ -26,7 +26,7 @@ $a = scalar context('S');
 ($a) = scalar context('S');
 
 {
-  # [ID 20020626.011] incorrect wantarray optimisation
+  # [ID 20020626.011 (#9998)] incorrect wantarray optimisation
   sub simple { wantarray ? 1 : 2 }
   sub inline {
     my $a = wantarray ? simple() : simple();