diff options
author | Albert Cheng <acheng@hdfgroup.org> | 2001-05-29 18:42:56 (GMT) |
---|---|---|
committer | Albert Cheng <acheng@hdfgroup.org> | 2001-05-29 18:42:56 (GMT) |
commit | d8845ebe43a39dc49b7b5cc41a0cfb1bc5081c6b (patch) | |
tree | e8d4205f32375065363b9abdd70b762c0e804d3b /bin | |
parent | 22131bb2ddf52c9ab3ab2c7e59227651d13b8369 (diff) | |
download | hdf5-d8845ebe43a39dc49b7b5cc41a0cfb1bc5081c6b.zip hdf5-d8845ebe43a39dc49b7b5cc41a0cfb1bc5081c6b.tar.gz hdf5-d8845ebe43a39dc49b7b5cc41a0cfb1bc5081c6b.tar.bz2 |
[svn-r3947] Description:
This script file is not used any more.
Platforms tested:
"grep versinc *" does not return any reference. Verified with Quincey too.
Diffstat (limited to 'bin')
-rw-r--r-- | bin/versinc | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/bin/versinc b/bin/versinc deleted file mode 100644 index 76d07e1..0000000 --- a/bin/versinc +++ /dev/null @@ -1,32 +0,0 @@ -#! /usr/local/bin/perl -w -require 5.003; -use Cwd; - -# Get the current directory and build the source files name based on it. -($cwd)=(cwd()=~m#(.*?hdf5)/.*#); - -$hdr = "$cwd/src/H5public.h"; -$bak = "$cwd/src/H5public.h~"; -$tmp = "$cwd/src/H5public.$$"; - -# Open files -open OLD, $hdr or die "cannot read $hdr"; -open NEW, ">$tmp" or die "cannot write to $tmp"; - -while (<OLD>) { - if (/^(\#\s*define\s+H5_VERS_RELEASE\s+)(\d+)(.*)/) { - print NEW $1, $2+1, $3, "\n"; - } elsif (/^(\#\s*define\s+H5_VERS_PATCH\s+)(\d+)(.*)/) { - print NEW $1, "0", $3, "\n"; - } else { - print NEW; - } -} -close OLD; -close NEW; - -# Create a backup -rename $hdr, $bak or warn "cannot create backup version"; -rename $tmp, $hdr or die "cannot update version number"; - -exit 0; |