Restore only if something to restore.

p4raw-id: //depot/perl@12332

diff --git a/lib/Term/Complete.t b/lib/Term/Complete.t
index 63b2825..2e83971 100644 (file)
--- a/lib/Term/Complete.t
+++ b/lib/Term/Complete.t
@@ -10,7 +10,6 @@ use Test::More tests => 8;
 use vars qw( $Term::Complete::complete $complete );
 my $restore;
 
-
 SKIP: {
     skip('PERL_SKIP_TTY_TEST', 8) if $ENV{PERL_SKIP_TTY_TEST};
     
@@ -22,7 +21,7 @@ SKIP: {
        skip("$TTY not a tty", 8)     if defined $TTY && ! -t TTY;
        $restore = `stty -g`;
        skip("Can't reliably restore $TTY", 8) if $?;
-       }
+    }
 
 use_ok( 'Term::Complete' );
 
@@ -69,7 +68,8 @@ like( $$out, qr/prompt:frobn/, 'prompt is okay' );
 # now remove the prompt and we should be okay
 $$out =~ s/prompt://g;
 is( $$out, get_expected('frobn', 'frobnitz' ), 'works with new $complete' );
-`stty $restore`;
+
+`stty $restore` if defined $restore;
 
 } # end of SKIP, end of tests