# 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.
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*$/);