summaryrefslogtreecommitdiff
path: root/infrastructure/msvc/getversion.pl
diff options
context:
space:
mode:
Diffstat (limited to 'infrastructure/msvc/getversion.pl')
-rw-r--r--infrastructure/msvc/getversion.pl34
1 files changed, 0 insertions, 34 deletions
diff --git a/infrastructure/msvc/getversion.pl b/infrastructure/msvc/getversion.pl
deleted file mode 100644
index 0cf9cbcb..00000000
--- a/infrastructure/msvc/getversion.pl
+++ /dev/null
@@ -1,34 +0,0 @@
-#!perl
-
-$basedir = $0;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
--d $basedir or die "$basedir: $!";
-chdir $basedir or die "$basedir: $!";
-
-require "$basedir\\infrastructure\\BoxPlatform.pm.in";
-
-my $verfile = "$basedir/lib/common/BoxVersion.h";
-my $newver = "#define BOX_VERSION \"$BoxPlatform::product_version\"\n";
-my $oldver = "";
-
-if (-r $verfile)
-{
- open VERSIONFILE, "< $verfile" or die "$verfile: $!";
- $oldver = <VERSIONFILE>;
- close VERSIONFILE;
-
-}
-
-if ($newver ne $oldver)
-{
- open VERSIONFILE, "> $verfile" or die "BoxVersion.h: $!";
- print VERSIONFILE $newver;
- close VERSIONFILE;
-}
-
-print $BoxPlatform::product_version;
-exit 0;