Mercurial > projects > dstress

annotate message_tie.pl @ 1087:5008714a9eb8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added message_tie.pl
author thomask
date Wed, 19 Jul 2006 12:31:37 +0000
parents
children 7269c8972179
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1087
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
1 #!/usr/bin/perl
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
2
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
3 my $message_pattern = shift;
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
4 my $last_cmd;
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
5
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
6 while (<>) {
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
7 if ($_ =~ /^(run|norun|compile|nocompile): (.*)/){
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
8 $last_cmd = $2;
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
9 }
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
10 if(/$message_pattern/) {
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
11 print "$last_cmd\n$_\n";
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
12 }
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
13 }
5008714a9eb8 added message_tie.pl
thomask
parents:
diff changeset
14