Changeset 358


Ignore:
Timestamp:
Sep 14, 2018, 1:22:46 PM (6 years ago)
Author:
g7moreau
Message:
  • Add constraint on sector name
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ddt/ddt

    r357 r358  
    2121use strict;
    2222#use warnings;
    23 use version; our $VERSION = version->declare('0.11.7');
     23use version; our $VERSION = version->declare('0.11.8');
    2424
    2525use Getopt::Long qw(GetOptions);
     
    16221622      or $comment       eq '';
    16231623
     1624   $sector =~ m{^[\w\d]}            or die "Error: sector $sector must begin by a letter or a digit\n";
     1625   $sector =~ m{^[\w\d][\w\d-_]*$}  or die "Error: sector $sector must only use letter digit dash and underscore character\n";
     1626
    16241627   $comment = normalize_comment($comment);
    16251628
Note: See TracChangeset for help on using the changeset viewer.