diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2005-01-04 15:53:10 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2005-01-04 15:53:10 +0000 |
commit | bfa783a8818ba51b76c0ba0fec80a84cd1843f72 (patch) | |
tree | 4664096c52496fbfe4ddf88edb24bc6a4c89a65c /modules/WinVersionTranslator.pm | |
parent | 6fb6091fdae18c3d3138cfaa71092bf82daff0d2 (diff) | |
download | MPC-bfa783a8818ba51b76c0ba0fec80a84cd1843f72.tar.gz |
ChangeLogTag: Tue Jan 4 09:52:13 2005 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/WinVersionTranslator.pm')
-rw-r--r-- | modules/WinVersionTranslator.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/modules/WinVersionTranslator.pm b/modules/WinVersionTranslator.pm index 53de1f3e..73e881d0 100644 --- a/modules/WinVersionTranslator.pm +++ b/modules/WinVersionTranslator.pm @@ -46,6 +46,16 @@ sub translate { $version .= '0'; } } + + if ($version =~ /(\d+)\.(\d+)/) { + my($major) = $1; + my($minor) = $2; + $minor =~ s/^\d+\.//; + while($minor > 65535) { + $minor = substr($minor, 0, length($minor) - 1); + } + $version = $major . '.' . $minor; + } } return $version; } |