use // for comments
This commit is contained in:
@@ -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*$/);
|
||||
|
||||
Reference in New Issue
Block a user