}
-unless ($branch =~ /^(HEAD|REL\d+_\d+_STABLE)$/)
-{
- print
- "Status: 492 bad branch parameter $branch\nContent-Type: text/plain\n\n",
- "bad branch parameter $branch\n";
- exit;
-
-}
+# Want to allow all kinds of named branches
+#unless ($branch =~ /^(HEAD|REL\d+_\d+_STABLE)$/)
+#{
+# print
+# "Status: 492 bad branch parameter $branch\nContent-Type: text/plain\n\n",
+# "bad branch parameter $branch\n";
+# exit;
+#
+#}
my $db = DBI->connect($dsn,$dbuser,$dbpass);