httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache Test.pm
Date Fri, 09 Nov 2001 18:01:53 GMT
dougm       01/11/09 10:01:53

  Modified:    perl-framework/Apache-Test/lib/Apache Test.pm
  Log:
  minor noise shrinkage
  
  Revision  Changes    Path
  1.31      +3 -2      httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm
  
  Index: Test.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm,v
  retrieving revision 1.30
  retrieving revision 1.31
  diff -u -r1.30 -r1.31
  --- Test.pm	2001/11/09 17:53:21	1.30
  +++ Test.pm	2001/11/09 18:01:53	1.31
  @@ -121,8 +121,9 @@
   
           # tryint to emulate a dual variable (ala errno)
           unless ($meets_condition) {
  -            push @SkipReasons, "no reason given" unless @SkipReasons;
  -            print "1..0 # skipped: " . join(', ', @SkipReasons) . "\n";
  +            my $reason = join ', ',
  +              @SkipReasons ? @SkipReasons : "no reason given";
  +            print "1..0 # skipped: $reason\n";
               exit; #XXX: Apache->exit
           }
       }
  
  
  

Mime
View raw message