Update usage text for new include/exclude filtering mechanism.

[cumulus.git] / contrib / clean-segments.pl

diff --git a/contrib/clean-segments.pl b/contrib/clean-segments.pl
index 5af3ae3..8f9aa80 100755 (executable)
--- a/contrib/clean-segments.pl
+++ b/contrib/clean-segments.pl
@@ -31,7 +31,7 @@ foreach (glob "*.lbs") {
     while (defined($line = <DESCRIPTOR>)) {
         chomp $line;
 
-        if ($line =~ m/^(\w+):\s*(.*)$/) {
+        if ($line =~ m/^([-\w]+):\s*(.*)$/) {
             $descriptor{$1} = $2;
             $last_key = $1;
         } elsif ($line =~/^\s/ && defined $last_key) {