diff options
author | Max Kanat-Alexander <mkanat@bugzilla.org> | 2010-02-23 01:14:23 +0100 |
---|---|---|
committer | Max Kanat-Alexander <mkanat@bugzilla.org> | 2010-02-23 01:14:23 +0100 |
commit | 0b85419f77869b943323c3656d8900f9ad6e1dfc (patch) | |
tree | 37de3c5bbdb6339e2c4cfba6e80b01bf8e1ce328 /Bugzilla/Constants.pm | |
parent | 2f34ebff96ec03af7aa06074f706b8a696f6cd36 (diff) | |
download | bugzilla-0b85419f77869b943323c3656d8900f9ad6e1dfc.tar.gz bugzilla-0b85419f77869b943323c3656d8900f9ad6e1dfc.tar.xz |
Bug 547336: Make installation work on Windows with Strawberry Perl Professional
r=glob, a=mkanat
Diffstat (limited to 'Bugzilla/Constants.pm')
-rw-r--r-- | Bugzilla/Constants.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Bugzilla/Constants.pm b/Bugzilla/Constants.pm index d626c9749..4a39110fa 100644 --- a/Bugzilla/Constants.pm +++ b/Bugzilla/Constants.pm @@ -149,6 +149,7 @@ use File::Basename; DB_MODULE ROOT_USER ON_WINDOWS + ON_ACTIVESTATE MAX_TOKEN_AGE MAX_LOGINCOOKIE_AGE @@ -471,6 +472,8 @@ use constant DB_MODULE => { # True if we're on Win32. use constant ON_WINDOWS => ($^O =~ /MSWin32/i); +# True if we're using ActiveState Perl (as opposed to Strawberry) on Windows. +use constant ON_ACTIVESTATE => eval { &Win32::BuildNumber }; # The user who should be considered "root" when we're giving # instructions to Bugzilla administrators. |