Imported Upstream version 1.5.8

1 files changed, 0 insertions, 21 deletions

diff --git a/utilities/perl/mkvsmod.pl b/utilities/perl/mkvsmod.pl
deleted file mode 100755
index e44c27d..0000000
--- a/utilities/perl/mkvsmod.pl
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl
-
-open (INF, $ARGV[0]);
-
-`addvs -c ./`;
-while (<INF>) {
-    
-    $line = $_;
-    $line =~ s/[\r\n]//g;
-    $line =~ /(.+\d+:\d+:?) +(.*)/;
-    $ref = $1;
-    $ver = $2;
-    open (BUF, ">buffer");
-    print BUF "$ver";
-    close (BUF);
-    $x = `addvs -a ./ \"$ref\" buffer`;
-    print "$ref\n";
-
-}
-
-close (INF);