Perl 5.8 is required to run the test suite, but IO::String is not.

1 files changed, 4 insertions, 5 deletions

diff --git a/tests/server/backend-t.in b/tests/server/backend-t.in
index 0b65c07..bc708f2 100644
--- a/tests/server/backend-t.in
+++ b/tests/server/backend-t.in
@@ -9,7 +9,6 @@
 # See LICENSE for licensing terms.
 
 use strict;
-use IO::String;
 use Test::More tests => 1263;
 
 # Create a dummy class for Wallet::Server that prints what method was called
@@ -171,10 +170,10 @@ eval { do '@abs_top_srcdir@/server/wallet-backend' };
 # Wallet::Server class.
 sub run_backend {
     my (@args) = @_;
-    my $result;
-    my $output = IO::String->new (\$result);
-    $output->autoflush (1);
-    select $output;
+    my $result = '';
+    open (OUTPUT, '>', \$result) or die "cannot create output string: $!\n";
+    select OUTPUT;
+    local $| = 1;
     eval { command (@args) };
     my $error = $@;
     select STDOUT;