perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r319405 - /perl/modperl/trunk/t/response/TestDirective/perldo.pm
Date Thu, 13 Oct 2005 00:50:02 GMT
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");
 



Mime
View raw message