Changeset 19504 for util

Timestamp:

01/16/08 05:40:11 (10 months ago)

Author:

agentz

Message:

[smartlinks.pl] fixed a bug when --test-res is set while test file info is not available (aka the newline prbolem) reported by Cosimo++

Files:

• util/smartlinks.pl (modified) (3 diffs)

util/smartlinks.pl

@@ -527 +527 @@
         s{L\<\"(http://.*?)\"\>}
          {L\&lt;<a href="$1">\&quot;$1\&quot;</a>\&gt;}g;
-        if (!$file_info) {
-            $src .= $_;
-            next;
-        }
-        chomp;
-        my $mark;
-        if (!exists $file_info->{$i}) {
-            $mark = '';
-        } elsif ($file_info->{$i}) {
-            $mark = qq{<span class="ok"> √ </span>};
-            $ok_count++;
-        } else {
-            $mark = qq{<span class="nok"> × </span>};
-            $failed_count++;
+        my $mark = '';
+        if ($file_info) {
+            chomp;
+            if (!exists $file_info->{$i}) {
+                $mark = '';
+            } elsif ($file_info->{$i}) {
+                $mark = qq{<span class="ok"> √ </span>};
+                $ok_count++;
+            } else {
+                $mark = qq{<span class="nok"> × </span>};
+                $failed_count++;
+            }
         }
         $src .= qq{<tr><td><code>$mark</code></td><td><code>$_</code></td></tr>\n};
@@ -557 +555 @@
     my $snippet;
     if (!$test_result) {
-        #warn "No test results for $file $from to $to";
+        #warn "No test results for $file $from to $to";
         $snippet = qq{<pre class="snip">$src</pre>};
     } else {
@@ -960 +958 @@
     sub list_t_files($) {
         my ($dir) = @_;
-        #warn "DIR is ", $dir, "\n";
+        #warn "DIR is ", $dir, "\n";
         find(\&_list_t_files, $dir);
         return @my_t_files;