# - BUGNUMBER_blah_blah/decision.wml ready to paste into webmml
# Inspect them and if appropriate send and commit.
-die "bad usage" unless @ARGV==1 && $ARGV[0] =~ m#^((\d+)_\w+)/.*$#;
+die "bad usage" unless @ARGV==1 && $ARGV[0] =~ m#^((\d+)_[\w-]+)/.*$#;
my ($dir, $bugn, $decision) = ($1,$2,$&);
my %decision = process_decision($decision,$bugn);