Changeset 358

Timestamp:

Sep 14, 2018, 1:22:46 PM (6 years ago)

Author:

g7moreau

Message:

• Add constraint on sector name

File:

• trunk/ddt/ddt (modified) (2 diffs)

trunk/ddt/ddt

@@ -21 +21 @@
 use strict;
 #use warnings;
-use version; our $VERSION = version->declare('0.11.7');
+use version; our $VERSION = version->declare('0.11.8');
 
 use Getopt::Long qw(GetOptions);
@@ -1622 +1622 @@
       or $comment       eq '';
 
+   $sector =~ m{^[\w\d]}            or die "Error: sector $sector must begin by a letter or a digit\n";
+   $sector =~ m{^[\w\d][\w\d-_]*$}  or die "Error: sector $sector must only use letter digit dash and underscore character\n";
+
    $comment = normalize_comment($comment);