use // for comments

This commit is contained in:
Mark Andrews
2005-05-17 00:57:31 +00:00
parent 61a03692ab
commit bdfd62f497

View File

@@ -14,7 +14,7 @@
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
# $Id: update_branches,v 1.10 2005/05/17 00:45:16 marka Exp $
# $Id: update_branches,v 1.11 2005/05/17 00:57:31 marka Exp $
#
# Track which branches are still open or not in the bind9 cvs repository.
@@ -50,10 +50,16 @@ while (<BRANCHES>) {
next if (/^-/);
next if (/^Branch/);
$c = "";
if (m/\(.*\)/) {
if (m://.*:) {
$c = $_;
$c =~ s/.*(\(.*\)).*$/$1/;
s/\(.*\)//;
$c =~ s:.*?//(.*)$:$1:;
s:(.*?)//.*:$1:;
} else {
if (m/\(.*\)/) {
$c = $_;
$c =~ s/.*\((.*)\).*$/$1/;
s/\(.*\)//;
}
}
s/\s$//;
next if (/^\s*$/);