diff options
author | Raja R Harinath <harinath@hurrynot.org> | 2004-05-07 14:59:05 +0400 |
---|---|---|
committer | Raja R Harinath <harinath@hurrynot.org> | 2004-05-07 14:59:05 +0400 |
commit | 6a2b24f38b5da4f094df7e33310a9cc8c28c92a5 (patch) | |
tree | 1d9742fe419641f123b428460bd7a8f333ab7c57 /mcs/errors/do-tests.pl | |
parent | e325a3f84d36e20cb4297c907649b83ec0ff8f3c (diff) |
Simplify sed expression.
svn path=/trunk/mcs/; revision=26898
Diffstat (limited to 'mcs/errors/do-tests.pl')
-rwxr-xr-x | mcs/errors/do-tests.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/mcs/errors/do-tests.pl b/mcs/errors/do-tests.pl index 874dc008add..47959aebd4e 100755 --- a/mcs/errors/do-tests.pl +++ b/mcs/errors/do-tests.pl @@ -67,11 +67,11 @@ my @status_items = ( my %results_map = (); foreach (glob ($files)) { - - print "$_..."; + print "$_"; my ($error_number) = (/[a-z]*(\d+)(-\d+)?\.cs/); - my $options = `fgrep "// Compiler options:" $_ | sed -e 's/\\/\\/ Compiler options://'`; - chomp $options; + my $options = `sed -n 's,^// Compiler options:,,p' $_`; + print "..."; + system "$compile $options $_ --expect-error $error_number > /dev/null"; exit 1 if $? & 127; |