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 pg...@apache.org on 2005/10/13 02:50:02 UTC

svn commit: r319405 - /perl/modperl/trunk/t/response/TestDirective/perldo.pm

Author: pgollucci
Date: Wed Oct 12 17:49:53 2005
New Revision: 319405

URL: http://svn.apache.org/viewcvs?rev=319405&view=rev
Log:
Fix the regex against executable names.
Submitted by: Stas

Modified:
    perl/modperl/trunk/t/response/TestDirective/perldo.pm

Modified: perl/modperl/trunk/t/response/TestDirective/perldo.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/perldo.pm?rev=319405&r1=319404&r2=319405&view=diff
==============================================================================
--- perl/modperl/trunk/t/response/TestDirective/perldo.pm (original)
+++ perl/modperl/trunk/t/response/TestDirective/perldo.pm Wed Oct 12 17:49:53 2005
@@ -40,7 +40,8 @@
     ok $TestDirective::perl::line > 3;
 
     ok !t_cmp($0, '-e', '$0');
-    ok t_cmp($0, qr/httpd|apache\.exe/i, '$0');
+    my $target = Apache::Test::vars('target');
+    ok t_cmp($0, qr/$target/i, '$0');
 
     ok t_cmp($TestDirective::perl::Included, 1, "Include");