Avoid spurious warnings in output

zoffixznet · zoffixznet · commit 671baf46db6d · 2016-07-29T23:26:58.000-04:00
diff --git a/S32-list/grep.t b/S32-list/grep.t
@@ -118,6 +118,7 @@ my @list = (1 .. 10);
 
 # Bool handling
 {
+    temp $_ = 42;
     throws-like { grep $_ == 1, 1,2,3 }, X::Match::Bool;
     throws-like { (1,2,3).grep: $_== 1 }, X::Match::Bool;
     is grep( Bool,True,False,Int ), (True,False), 'can we match on Bool as type';

Original file line number	Diff line number	Diff line change
`@@ -118,6 +118,7 @@ my @list = (1 .. 10);`
`118`	`118`
`119`	`119`	`# Bool handling`
`120`	`120`	`{`
	`121`	`+ temp $_ = 42;`
`121`	`122`	`throws-like { grep $_ == 1, 1,2,3 }, X::Match::Bool;`
`122`	`123`	`throws-like { (1,2,3).grep: $_== 1 }, X::Match::Bool;`
`123`	`124`	`is grep( Bool,True,False,Int ), (True,False), 'can we match on Bool as type';`