Welcome to mirror list, hosted at ThFree Co, Russian Federation.

github.com/mono/mono.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRaja R Harinath <harinath@hurrynot.org>2004-05-07 14:59:05 +0400
committerRaja R Harinath <harinath@hurrynot.org>2004-05-07 14:59:05 +0400
commit6a2b24f38b5da4f094df7e33310a9cc8c28c92a5 (patch)
tree1d9742fe419641f123b428460bd7a8f333ab7c57 /mcs/errors/do-tests.pl
parente325a3f84d36e20cb4297c907649b83ec0ff8f3c (diff)
Simplify sed expression.
svn path=/trunk/mcs/; revision=26898
Diffstat (limited to 'mcs/errors/do-tests.pl')
-rwxr-xr-xmcs/errors/do-tests.pl8
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;