[svn-r1474] ./bin/h5vers [1.3]

	Added `use strict' and declared some variables.

./bin/trace		[1.2, 1.3]
	Added definitions for H5D_operator_t, H5MM_allocate_t, and
	H5MM_free_t and regenerated tracing calls for the affected API
	functions.

2 files changed, 8 insertions, 2 deletions

diff --git a/bin/h5vers b/bin/h5vers
index f512c98..eefca78 100755
--- a/bin/h5vers
+++ b/bin/h5vers
@@ -4,6 +4,7 @@ exit
 
 #! perl
 require 5.003;
+use strict;
 
 ### Copyright © 1998 NCSA.
 # Robb Matzke <matzke@llnl.gov>
@@ -124,8 +125,9 @@ unless ($file) {
     ($file=$_,last) if -f $_;
   }
 }
+die "unable to find source files\n" unless defined $file;
 die "unable to read file: $file\n" unless -r $file;
-$README = $file;
+my $README = $file;
 $README =~ s/[^\/]*$/..\/README/;
 die "unable to read file: $README\n" unless -r $file;
 
@@ -136,6 +138,7 @@ close FILE;
 my (@curver) = getvers $contents;
 
 # Determine the new version number.
+my @newver; #new version
 if ($set) {
   if ($set =~ /(\d+)\.(\d+)\.(\d+)/) {
     @newver = ($1, $2, $3);
@@ -187,7 +190,7 @@ if ($newver[0]!=$curver[0] ||
 # Update the README file
 if ($README) {
   open FILE, $README or die "$README: $!\n";
-  @contents = <FILE>;
+  my @contents = <FILE>;
   close FILE;
   $contents[0] = sprintf("This is hdf5-%d.%d.%d currently under development\n",
 			 @newver);
diff --git a/bin/trace b/bin/trace
index aa4f3ca..c0b2ea3 100755
--- a/bin/trace
+++ b/bin/trace
@@ -53,9 +53,12 @@ $Source = "";
                "void*"                     => "x",
                "FILE*"                     => "x",
                "H5A_operator_t"            => "x",
+	       "H5D_operator_t"		   => "x",
 	       "H5E_auto_t"                => "x",
                "H5E_walk_t"                => "x",
                "H5G_iterate_t"             => "x",
+	       "H5MM_allocate_t"           => "x",
+	       "H5MM_free_t"               => "x",
 	       "H5T_cdata_t**"             => "x",
                "H5T_conv_t"                => "x",
 	       "H5T_overflow_t"            => "x",