From ceaa84bb6986e40de97e6825b3e288fae4530bbb Mon Sep 17 00:00:00 2001 From: Albert Cheng Date: Tue, 29 May 2001 13:43:28 -0500 Subject: [svn-r3948] Description: This script file is not used any more. Platforms tested: "grep versinc *" does not return any reference. Verified with Quincey too. --- bin/versinc | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 bin/versinc 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 () { - 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; -- cgit v0.12