Imported Upstream version 1.5.11

1 files changed, 21 insertions, 0 deletions

diff --git a/utilities/perl/mkvsmod.pl b/utilities/perl/mkvsmod.pl
new file mode 100755
index 0000000..e44c27d
--- /dev/null
+++ b/utilities/perl/mkvsmod.pl
@@ -0,0 +1,21 @@
+#!/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);