From 3ebbd3e716bfd4ac2b645a9701c51bb7c3afba0d Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Thu, 24 Apr 2008 02:41:12 +0000
Subject: Perl 5.8 is required to run the test suite, but IO::String is not.

---
 tests/server/keytab-t.in | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'tests/server/keytab-t.in')

diff --git a/tests/server/keytab-t.in b/tests/server/keytab-t.in
index dbc653e..f74267d 100644
--- a/tests/server/keytab-t.in
+++ b/tests/server/keytab-t.in
@@ -11,7 +11,6 @@
 use strict;
 use vars qw($CONFIG $KADMIN $SYSLOG $TMP);
 
-use IO::String;
 use Test::More tests => 63;
 
 # Load the keytab-backend code and override various settings.
@@ -25,10 +24,10 @@ $TMP = '.';
 # Run the keytab backend.
 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 { download (@args) };
     my $error = $@;
     select STDOUT;
-- 
cgit v1.2.3