diff options
author | Dana Robinson <derobins@hdfgroup.org> | 2011-08-23 19:17:35 (GMT) |
---|---|---|
committer | Dana Robinson <derobins@hdfgroup.org> | 2011-08-23 19:17:35 (GMT) |
commit | dc09f2117c885b28ef2bcedcaebe25298ac1a787 (patch) | |
tree | 218cd75d886d909e9c8581158edd777b172c59c2 /bin/trace | |
parent | d731512875c9c04651cef1ee488c95f5e0a2b0f7 (diff) | |
download | hdf5-dc09f2117c885b28ef2bcedcaebe25298ac1a787.zip hdf5-dc09f2117c885b28ef2bcedcaebe25298ac1a787.tar.gz hdf5-dc09f2117c885b28ef2bcedcaebe25298ac1a787.tar.bz2 |
[svn-r21302] Fixed the bin/trace Perl script so that it ignores a final ... parameter, which it can't process. This allows the correct H5TRACE8 trace function to be added to H5Epush2. Tested on jam (simple change).
Diffstat (limited to 'bin/trace')
-rwxr-xr-x | bin/trace | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -219,6 +219,9 @@ sub rewrite_func ($$$$$) { my %names; for $arg (@args) { + if($arg=~/\w*\.{3}\w*/){ + next; + } unless ($arg=~/^(([a-z_A-Z]\w*\s+)+\**) ([a-z_A-Z]\w*)(\[.*?\])? (\s*\/\*\s*(in|out|in_out)\s*\*\/)?\s*$/x) { |