diff options
author | Scott Wegner <swegner@hdfgroup.org> | 2008-08-06 19:04:45 (GMT) |
---|---|---|
committer | Scott Wegner <swegner@hdfgroup.org> | 2008-08-06 19:04:45 (GMT) |
commit | 35fcfd37d4ff7609dfde24452487038296f12cdc (patch) | |
tree | d120e391a51f40e4800767b4e218594d3229dc2b /bin | |
parent | 2b3a491ee19dc9ef1b5fcd2c2dcff296174e23b6 (diff) | |
download | hdf5-35fcfd37d4ff7609dfde24452487038296f12cdc.zip hdf5-35fcfd37d4ff7609dfde24452487038296f12cdc.tar.gz hdf5-35fcfd37d4ff7609dfde24452487038296f12cdc.tar.bz2 |
[svn-r15440] Purpose: Correct a few typos from my previous edit
Description:
-- Remove a couple lines of debugging output
-- Make sure H5_PACKAGE_NAME outputs 'HDF5' rather than 'hdf5'
-- Take into account version strings with a postfix. This isn't currently used in HDF5 1.9 branch, but is in HDF5 1.8.
Tested:
kagiso
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/h5vers | 19 |
1 files changed, 10 insertions, 9 deletions
@@ -363,24 +363,25 @@ sub gen_h5pubconf { if ($contents[$i] =~ /\#\s*define\s+H5_PACKAGE\s+/) { $contents[$i] = "\#define H5_PACKAGE \"$namelc\"\n"; } elsif ($contents[$i] =~ /\#\s*define\s+H5_PACKAGE_NAME\s+/) { - $contents[$i] = "\#define H5_PACKAGE_NAME \"$namelc\"\n"; + $contents[$i] = "\#define H5_PACKAGE_NAME \"$nameuc\"\n"; } elsif ($contents[$i] =~ /\#\s*define\s+H5_PACKAGE_STRING\s+/) { - $contents[$i] = sprintf("\#define H5_PACKAGE_STRING \"$nameuc %d.%d.%d\"\n", - @vers[0,1,2]); + $contents[$i] = sprintf("\#define H5_PACKAGE_STRING \"$nameuc %d.%d.%d%s\"\n", + @vers[0,1,2], + $newver[3] eq "" ? "" : "-".$newver[3]); } elsif ($contents[$i] =~ /\#\s*define\s+H5_PACKAGE_TARNAME\s+/) { $contents[$i] = "\#define H5_PACKAGE_TARNAME \"$namelc\"\n"; } elsif ($contents[$i] =~ /\#\s*define\s+H5_PACKAGE_VERSION\s+/) { - $contents[$i] = sprintf("\#define H5_PACKAGE_VERSION \"%d.%d.%d\"\n", - @vers[0,1,2]); + $contents[$i] = sprintf("\#define H5_PACKAGE_VERSION \"%d.%d.%d%s\"\n", + @vers[0,1,2], + $newver[3] eq "" ? "" : "-".$newver[3]); } elsif ($contents[$i] =~ /\#\s*define\s+H5_VERSION\s+/) { - $contents[$i] = sprintf("\#define H5_VERSION \"%d.%d.%d\"\n", - @vers[0,1,2]); + $contents[$i] = sprintf("\#define H5_VERSION \"%d.%d.%d%s\"\n", + @vers[0,1,2], + $newver[3] eq "" ? "" : "-".$newver[3]); } } - printf("opening file for writing"); open FILE, ">$pubconf" or die "$pubconf: $!\n"; - print FILE "this is a test"; print FILE @contents; close FILE; } |