From 11e4d606da98fa3301306fef69e548c4d6e74f9b Mon Sep 17 00:00:00 2001
From: Vadim Zeitlin <vadim@wxwidgets.org>
Date: Mon, 24 Feb 2003 00:47:40 +0000
Subject: [PATCH] added wxVersion.pm here as apparently cvs doesn't allow
 adding the file added on the trunk on a branch as well

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/branches/WX_2_4_BRANCH@19303 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
---
 distrib/msw/tmake/wxVersion.pm | 53 ++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 distrib/msw/tmake/wxVersion.pm

diff --git a/distrib/msw/tmake/wxVersion.pm b/distrib/msw/tmake/wxVersion.pm
new file mode 100644
index 0000000000..842d0291b2
--- /dev/null
+++ b/distrib/msw/tmake/wxVersion.pm
@@ -0,0 +1,53 @@
+package wxVersion;
+
+=head1 NAME
+
+wxVersion
+
+=head1 SYNOPSIS
+
+  use wxVersion qw(GetVersion);
+
+=head1 METHODS
+
+=cut
+
+use strict;
+
+use base 'Exporter';
+use vars qw(@EXPORT_OK);
+
+@EXPORT_OK = qw(GetVersion);
+
+sub GetVersion()
+{
+    my $filename = "../../../include/wx/version.h";
+    open(VERSION_H, $filename) or die "Can't open $filename: $!\n";
+
+    my %versions;
+    my $numGot = 0;
+
+    while ( defined($_ = <VERSION_H>) ) {
+        chomp;
+
+        if ( /\s*#define\s+wxMAJOR_VERSION\s+(\d+)/ ) {
+            $versions{'MAJOR'} = $1;
+            $numGot++;
+        }
+        elsif ( /\s*#define\s+wxMINOR_VERSION\s+(\d+)/ ) {
+            $versions{'MINOR'} = $1;
+            $numGot++;
+        }
+        elsif ( /\s*#define\s+wxRELEASE_NUMBER\s+(\d+)/ ) {
+            $versions{'MICRO'} = $1;
+            $numGot++;
+        }
+
+        last if $numGot == 3    # we've got everything we wanted
+    }
+
+    $numGot == 3 or die "Failed to read the version from $filename.\n";
+
+    return %versions;
+}
+