1 files changed, 0 insertions, 44 deletions
diff --git a/utilities/perl/linkvers.pl b/utilities/perl/linkvers.pl
deleted file mode 100755
index 751dc14..0000000
--- a/utilities/perl/linkvers.pl
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl
-
-$vplfile = $ARGV[0];
-
-if ($vplfile eq "") {
-    die("linkvers.pl Syntax:\n./linkvers.pl <vpl file> [1 - checking mode on].\nMust be run AFTER vpl2mod is completed.\ndied");
-}
-
-$check = $ARGV[1];
-
-open(INF,$vplfile) or die;
-while (<INF>) {
-    $line = $_;
-
-    $line =~ /([\w ]+:[\d\-]+)\s+(.*)/;
-    $vref = $1;
-
-    if ($vref =~ /\-/) {
-	$vref =~ /(.*:)(\d+)\-(\d+)/;
-	$ch = $1;
-	$fv = $2;
-	$lv = $3;
-	if ($fv + 1 == $lv) {
-	    $sv = $lv;
-	}
-	else {
-	    $sv = $fv + 1;
-	    $sv .= "-" . $lv;
-	}
-	$first = $ch . $fv;
-	$last = $ch . $sv;
-
-	if ($check ne "") {
-	    print "$first\t\t$last\n";
-	} else {
-	    `addvs -l ./ \"$first\" \"$last\"`;
-	}
-    }
-}
-close(INF);
-
-
-
-