From 3e2a44f4eb8d50a6861c45e5db3140d0d33d84fe Mon Sep 17 00:00:00 2001 From: Robin Sheat Date: Mon, 30 Mar 2015 16:38:49 +1300 Subject: [PATCH] Bug 13607: test cases fixes --- t/Output_JSONStream.t | 2 +- t/Output_XMLStream.t | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/t/Output_JSONStream.t b/t/Output_JSONStream.t index fe03430..397b029 100755 --- a/t/Output_JSONStream.t +++ b/t/Output_JSONStream.t @@ -36,4 +36,4 @@ is($json->output,'{}',"Making sure that clearing it clears it."); is($json->content_type, 'json', 'Correct content type is returned'); -is($json->true, JSON::True, 'True is true.'); +is($json->true, JSON::true, 'True is true.'); diff --git a/t/Output_XMLStream.t b/t/Output_XMLStream.t index c65ac48..7dc4b64 100644 --- a/t/Output_XMLStream.t +++ b/t/Output_XMLStream.t @@ -66,5 +66,6 @@ is($xml->true, '1', 'True is true.'); sub trim { $_ = shift; - s/^\s*(.*?)\s*$/$1/r; + $_ =~ s/^\s*(.*?)\s*$/$1/; + return $_; } -- 2.1.0