[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-modperl-cvs
Subject:    cvs commit: modperl-2.0/t/response/TestAPR uri.pm
From:       stas () apache ! org
Date:       2004-05-25 8:42:03
Message-ID: 20040525084203.33254.qmail () minotaur ! apache ! org
[Download RAW message or body]

stas        2004/05/25 01:42:03

  Modified:    t/response/TestAPR uri.pm
  Log:
  doh! turn the fatal off, will fix in the morning
  
  Revision  Changes    Path
  1.2       +8 -7      modperl-2.0/t/response/TestAPR/uri.pm
  
  Index: uri.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/uri.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- uri.pm	25 May 2004 08:25:44 -0000	1.1
  +++ uri.pm	25 May 2004 08:42:03 -0000	1.2
  @@ -6,7 +6,7 @@
   # unparse,
   
   use strict;
  -use warnings FATAL => 'all';
  +use warnings;# FATAL => 'all';
   
   use Apache::Test;
   use Apache::TestUtil;
  @@ -67,7 +67,7 @@
       for my $method (keys %url) {
           no strict 'refs';
           $parsed->$method($url{$method}[1]);
  -        t_debug("$method: $url{$method}[1] => " . $parsed->$method);
  +        t_debug("$method: $url{$method}[1] => " . $parsed->$method||'');
       }
   
       ### unparse ###
  @@ -88,11 +88,12 @@
       ok t_cmp($url1, $url_unparsed, "unparsed url");
   
       # this time the password should appear
  -    my $url_unparsed = $parsed->unparse(APR::URI_UNP_REVEALPASSWORD);
  -    my $url2 = sprintf "%s://%s:%s\@%s%s",
  -        map { $url{$_}[1] } grep !/^port$/, @keys_urls;
  -    ok t_cmp($url2, $url_unparsed, "unparsed url");
  -
  +    {
  +        my $url_unparsed = $parsed->unparse(APR::URI_UNP_REVEALPASSWORD);
  +        my $url2 = sprintf "%s://%s:%s\@%s%s",
  +            map { $url{$_}[1] } grep !/^port$/, @keys_urls;
  +        ok t_cmp($url2, $url_unparsed, "unparsed url");
  +    }
   
       ### port_of_scheme ###
       while(my($scheme, $port) = each %default_ports) {
  
  
  
[prev in list] [next in list] [prev in thread] [next in thread]