diff options
author | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2004-03-15 13:14:37 +0000 |
---|---|---|
committer | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2004-03-15 13:14:37 +0000 |
commit | 5f4bf994beebe0f370ed0f9c80f56e30353a391b (patch) | |
tree | 48cf5fe27420719f819c003d43abab05de5da96e /src/misc | |
parent | 8e20b90cf2d41908643e6f46a675d7c8d489702f (diff) |
allow any number of # characters in marker comments
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@1293 f88db872-0e4f-0410-b76b-b9085cfa78c5
Diffstat (limited to 'src/misc')
-rwxr-xr-x | src/misc/select.patch | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/misc/select.patch b/src/misc/select.patch index ff09a7b..b3457e5 100755 --- a/src/misc/select.patch +++ b/src/misc/select.patch @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl -w +#!/usr/bin/perl -w # $Header$ # @@ -8,7 +8,8 @@ # This filter prints that part of standard input starting with a # line of the form (eg) # ## +z patch -# and continuing up to and including two consecutive newlines. +# (with any number >= 1 of # characters allowed) and continuing up to and +# including two consecutive newlines. # use strict; @@ -21,7 +22,7 @@ my $in_selected_patch = 0; my $newline_count = 0; while (my $line = <STDIN>) { - if ($line =~ /^### \Q${patch_name}/o) + if ($line =~ /^#+ \Q${patch_name}/o) { $in_selected_patch = 1; } if ($line =~ /^\n/) { ++$newline_count; } |