cvs commit: modperl-2.0/t/hooks/TestHooks trans.pm

[dougm]

dougm       01/10/22 11:02:29

  Modified:    t/hooks/TestHooks trans.pm
  Log:
  temp workaround for win32 problem with /TestFoo::bar urls
  
  Revision  Changes    Path
  1.3       +13 -1     modperl-2.0/t/hooks/TestHooks/trans.pm
  
  Index: trans.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/trans.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- trans.pm  2001/08/30 01:05:41     1.2
  +++ trans.pm  2001/10/22 18:02:29     1.3
  @@ -3,6 +3,8 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::TestConfig ();
  +
   my %trans = (
       '/TestHooks/trans.pm' => sub {
           my $r = shift;
  @@ -19,8 +21,18 @@
   
   sub handler {
       my $r = shift;
  +
  +    my $uri = $r->uri;
  +
  +    #XXX: temp workaround, core_translate trips on :'s
  +    if (Apache::TestConfig::WIN32()) {
  +        if ($uri =~ m,^/Test[A-Z]\w+::,) {
  +            $r->filename(__FILE__);
  +            return Apache::OK;
  +        }
  +    }
   
  -    my $handler = $trans{ $r->uri };
  +    my $handler = $trans{ $uri };
   
       return Apache::DECLINED unless $handler;