CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-08-08 09:39:24 +02:00
Code Issues Projects Releases Wiki Activity

comment out diagnostic

Browse Source
This commit is contained in:
Jim Meyering
2003-02-19 12:56:37 +00:00
parent f3ecf0e5df
commit f60bd3f4c8
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/misc/cat-tty-eof
+1 -1
View File
@@ -32,7 +32,7 @@ $@ and (warn "$ME: this script requires Perl's Expect package\n"), exit 77;
$exp->send(''); # FIXME: it'd be better not to hard-code ^D here
$exp->expect (0, '-re', "^foo\\r?\$");
my $found = $exp->expect (1, '-re', "^.+\$");
$found and warn "F: $found: " . $exp->exp_match () . "\n";
# $found and warn "F: $found: " . $exp->exp_match () . "\n";
$exp->expect(0, 'eof');
# defined $exp->exitstatus and warn "E: " . $exp->exitstatus . "\n";
defined $found && defined $exp->exitstatus && $exp->exitstatus == 0