From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 4 Sep 2009 10:36:27 +0000 (+0200)
Subject: Replace system by print in strictures/parsing regression test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6583110bddfbdd4e402a01dad5658b15a7d5727c;p=p5sagit%2Fp5-mst-13.2.git

Replace system by print in strictures/parsing regression test

(so we're not annoyed by shell messages)
---

diff --git a/t/lib/strict/subs b/t/lib/strict/subs
index 25c6543..4c88021 100644
--- a/t/lib/strict/subs
+++ b/t/lib/strict/subs
@@ -423,9 +423,12 @@ EXPECT
 
 ########
 use strict 'subs';
-sub sayfoo { print "foo:@_\n" }
-system sayfoo "bar";
-system sayfoo . "bar";
+sub sayfoo { print "foo:@_\n" ; "ret\n" }
+print sayfoo "bar";
+print sayfoo . "bar\n";
 EXPECT
 foo:bar
+ret
 foo:
+ret
+bar