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/admin-t.in b/tests/server/admin-t.in
index 177ef70..be40880 100644
--- a/tests/server/admin-t.in
+++ b/tests/server/admin-t.in
@@ -9,7 +9,6 @@
 # See LICENSE for licensing terms.
 
 use strict;
-use IO::String;
 use Test::More tests => 54;
 
 # Create a dummy class for Wallet::Admin that prints what method was called
@@ -84,10 +83,10 @@ eval { do '@abs_top_srcdir@/server/wallet-admin' };
 # Wallet::Admin class.
 sub run_admin {
     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;