@@ -, +, @@ --- t/Output_JSONStream.t | 2 +- t/Output_XMLStream.t | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) --- a/t/Output_JSONStream.t +++ a/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.'); --- a/t/Output_XMLStream.t +++ a/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 $_; } --