diff options
author | Larry Knox <lrknox@hdfgroup.org> | 2020-03-12 15:01:06 (GMT) |
---|---|---|
committer | Larry Knox <lrknox@hdfgroup.org> | 2020-03-12 15:01:06 (GMT) |
commit | fe1f4d031e3aeb2702639c2b7e11f76811309f48 (patch) | |
tree | 53532b01b778aced7743b1909d5befca6de66623 /bin | |
parent | 602b5fda4f5d2c68e9180173c2eed05583a794ab (diff) | |
download | hdf5-fe1f4d031e3aeb2702639c2b7e11f76811309f48.zip hdf5-fe1f4d031e3aeb2702639c2b7e11f76811309f48.tar.gz hdf5-fe1f4d031e3aeb2702639c2b7e11f76811309f48.tar.bz2 |
Add \d to list of characters allowed after - in versions.
Diffstat (limited to 'bin')
-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); |