[svn:parrot] r17377 - trunk/languages/t

[bernhard]

Author: bernhard
Date: Wed Mar  7 13:41:53 2007
New Revision: 17377

Modified:
   trunk/languages/t/harness

Log:
Avoid a warning about an unitialized variable used in '+'.


Modified: trunk/languages/t/harness
==============================================================================
--- trunk/languages/t/harness   (original)
+++ trunk/languages/t/harness   Wed Mar  7 13:41:53 2007
@@ -5,7 +5,6 @@
 
 use strict;
 use warnings;
-use 5.006;
 use lib qw( lib ../lib );
 
 use File::Spec;
@@ -89,8 +88,6 @@
 # python               not maintained
 # ruby                 not maintained, should be removed
 
-
-
 my @unified_testable_languages
     = defined $languages_list ?
           split( /\s*,\s*/, $languages_list )
@@ -177,7 +174,7 @@
                 print STDERR "- $file\n";
                 $data = $self->run_test($file);
                 $stats{tests} += $data->{results}{max};
-                $stats{ok}    += $data->{results}{ok};
+                $stats{ok}    += $data->{results}{ok} || 0;
             }
 
             printf STDERR "%s OK from %s tests (%.2f%% ok)\n\n",
@@ -188,9 +185,9 @@
             $self->{meat}{end_time} = time;
         };
 
-        my $start = time;
+        my $start = time();
         my $model = Test::TAP::Model::Visual->new_with_tests(@tests);
-        my $end = time;
+        my $end   = time();
 
         my $duration = $end - $start;
         my $languages = join( q{ }, @unified_testable_languages );