You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1999/01/21 22:20:18 UTC
cvs commit: modperl/lib/Apache Status.pm src.pm
dougm 99/01/21 13:20:18
Modified: lib/Apache Status.pm src.pm
Log:
a few minor fixups
Revision Changes Path
1.13 +3 -1 modperl/lib/Apache/Status.pm
Index: Status.pm
===================================================================
RCS file: /export/home/cvs/modperl/lib/Apache/Status.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- Status.pm 1999/01/18 04:31:16 1.12
+++ Status.pm 1999/01/21 21:20:17 1.13
@@ -4,7 +4,7 @@
$Apache::Status::VERSION = '2.00';
my %is_installed = ();
-
+my $Is_Win32 = ($^O eq "MSWin32");
{
local $SIG{__DIE__};
%is_installed = map {
@@ -26,6 +26,8 @@
myconfig => "Perl Configuration",
hooks => "Enabled mod_perl Hooks",
);
+
+delete $status{'sig'} if $Is_Win32;
if($Apache::Server::SaveConfig) {
$status{"section_config"} = "Perl Section Configuration";
1.12 +2 -2 modperl/lib/Apache/src.pm
Index: src.pm
===================================================================
RCS file: /export/home/cvs/modperl/lib/Apache/src.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- src.pm 1999/01/04 15:10:16 1.11
+++ src.pm 1999/01/21 21:20:17 1.12
@@ -14,6 +14,7 @@
$VERSION = '0.01';
sub IS_MOD_PERL_BUILD () {-e "../lib/mod_perl.pm"}
+my $Is_Win32 = ($^O eq "MSWin32");
sub new {
my $class = shift;
@@ -46,6 +47,7 @@
sub mmn_eq {
my($class, $dir) = @_;
+ return 1 if $Is_Win32; #just assume, till Apache::src works under win32
my $instsrc;
{
local @INC = grep { !/blib/ } @INC;
@@ -185,8 +187,6 @@
return $version;
}
-
-my $Is_Win32 = ($^O eq "MSWin32");
sub typemaps {
my $typemaps = [];