httpd-test-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas Bekman <s...@stason.org>
Subject Re: Failures in TestRun.pm with A::T 1.09
Date Thu, 11 Mar 2004 18:32:08 GMT
rgs suggested to try B::Concise, which show you what the opcode tree looks 
like. Try the patch below. Does it still fail as before? (all I did is just 
commenting out some redundant code, which will not prevent us from running. If 
it does fail the same way, uncomment the line:

  #B::Concise::compile(__PACKAGE__."::set_ulimit_via_sh")->();

run:

% t/TEST -start

and post the output. Thanks.

Index: lib/Apache/TestRun.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
retrieving revision 1.156
diff -u -r1.156 TestRun.pm
--- lib/Apache/TestRun.pm       4 Mar 2004 05:51:31 -0000       1.156
+++ lib/Apache/TestRun.pm       11 Mar 2004 18:29:52 -0000
@@ -612,26 +612,26 @@
  }

  sub set_ulimit_via_sh {
-    return if Apache::TestConfig::WINFU;
+#    return if Apache::TestConfig::WINFU;
      return if $ENV{APACHE_TEST_ULIMIT_SET};
-    my $binsh = '/bin/sh';
-    return unless -e $binsh;
+#    my $binsh = '/bin/sh';
+#    return unless -e $binsh;
      $ENV{APACHE_TEST_ULIMIT_SET} = 1;

-    my $sh = Symbol::gensym();
-    open $sh, "echo ulimit -a | $binsh|" or die;
-    local $_;
-    while (<$sh>) {
-        if (/^core.*unlimited$/) {
-            #already set to unlimited
-            $ENV{APACHE_TEST_ULIMIT_SET} = 1;
-            return;
-        }
-    }
-    close $sh;
+#    my $sh = Symbol::gensym();
+#    open $sh, "echo ulimit -a | $binsh|" or die;
+#    local $_;
+#    while (<$sh>) {
+#        if (/^core.*unlimited$/) {
+#            #already set to unlimited
+#            $ENV{APACHE_TEST_ULIMIT_SET} = 1;
+#            return;
+#        }
+#    }
+#    close $sh;

      $original_command = "ulimit -c unlimited; $original_command";
-    warning "setting ulimit to allow core files\n$original_command";
+    #warning "setting ulimit to allow core files\n$original_command";
      exec $original_command;
      die "exec $original_command has failed"; # shouldn't be reached
  }
@@ -639,6 +639,10 @@
  sub set_ulimit {
      my $self = shift;
      #return if $self->set_ulimit_via_bsd_resource;
+
+    use B::Concise;
+    #B::Concise::compile(__PACKAGE__."::set_ulimit_via_sh")->();
+
      eval { $self->set_ulimit_via_sh };
  }


__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com

Mime
View raw message