[Rt-commit] r5435 - in Test-Chimps: trunk/bin

[zev at bestpractical.com]

Author: zev
Date: Fri Jun 23 17:34:13 2006
New Revision: 5435

Modified:
   Test-Chimps/   (props changed)
   Test-Chimps/trunk/bin/poll_and_submit.pl

Log:
 r4213 at galvatron (orig r16):  zev | 2006-06-21 15:49:49 -0400
  r4212 at galvatron:  zev | 2006-06-21 15:49:45 -0400
  fixed stupid errors
 


Modified: Test-Chimps/trunk/bin/poll_and_submit.pl
==============================================================================
--- Test-Chimps/trunk/bin/poll_and_submit.pl	(original)
+++ Test-Chimps/trunk/bin/poll_and_submit.pl	Fri Jun 23 17:34:13 2006
@@ -34,11 +34,11 @@
     $info_out =~ m/Last Changed Author: (\w+)/;
     my $author = $1;
 
-    my $old_revision = $config->{$project}->{revision}
+    my $old_revision = $config->{$project}->{revision};
 
     next unless $latest_revision > $old_revision;
 
-    foreach my $revision (($old_revision + 1) .. $revision) {
+    foreach my $revision (($old_revision + 1) .. $latest_revision) {
       $config->{$project}->{revision} = $revision;
 
       checkout_project($config->{$project}, $revision);
@@ -69,7 +69,7 @@
       my $report = Test::Smoke::Report->new(model => $model,
                                             extra_data =>
                                             { category => $project,
-                                              subcategory => 'repository snapshot / ' . $config{osname},
+                                              subcategory => 'repository snapshot / ' . $Config{osname},
                                               project => scalar fileparse($config->{$project}->{svn_uri}),
                                               revision => $revision,
                                               author => $author,