diff options
author | Larry Knox <lrknox@hdfgroup.org> | 2020-03-12 14:51:53 (GMT) |
---|---|---|
committer | Larry Knox <lrknox@hdfgroup.org> | 2020-03-12 14:51:53 (GMT) |
commit | d9f93659a28ecae44e298c8ef80fe63f70810d0d (patch) | |
tree | 51ad7cf4a6ea4ad77276304ae9c5182f915afdc7 /bin/h5vers | |
parent | 9abbdeaa66c70a00b6a7bedee9c76d2493a8e947 (diff) | |
download | hdf5-d9f93659a28ecae44e298c8ef80fe63f70810d0d.zip hdf5-d9f93659a28ecae44e298c8ef80fe63f70810d0d.tar.gz hdf5-d9f93659a28ecae44e298c8ef80fe63f70810d0d.tar.bz2 |
Add \d to list of characters allowed after '-' in versions.
Diffstat (limited to 'bin/h5vers')
-rwxr-xr-x | bin/h5vers | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -213,7 +213,7 @@ my (@curver) = getvers $contents; # Determine the new version number. my @newver; #new version if ($set) { - if ($set =~ /(\d+)\.(\d+)\.(\d+)(-([a-zA-Z]\w*))?/) { + if ($set =~ /(\d+)\.(\d+)\.(\d+)(-([\da-zA-Z]\w*))?/) { @newver = ($1, $2, $3, $5); } elsif ($set =~ /(\d+)\D+(\d+)\D+(\d+)(\s*\(([a-zA-Z]\w*)\))?\D*$/) { @newver = ($1, $2, $3, $5); |