From c51e515d06030331edade47dc53caf2fb01fe5de Mon Sep 17 00:00:00 2001 From: "terry%mozilla.org" Date: Tue, 19 Oct 1999 15:05:16 +0000 Subject: [PATCH] Fix perl warnings. git-svn-id: svn://10.0.0.236/trunk@51139 18797224-902f-48f8-a5cc-f745e15eee43 --- mozilla/webtools/bonsai/cvsview2.cgi | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/mozilla/webtools/bonsai/cvsview2.cgi b/mozilla/webtools/bonsai/cvsview2.cgi index f007403998f..ca05785c513 100755 --- a/mozilla/webtools/bonsai/cvsview2.cgi +++ b/mozilla/webtools/bonsai/cvsview2.cgi @@ -870,7 +870,9 @@ sub html_diff { (($point) = /^d(\d+)$/)) { $mark = $point if (!$mark); $old_line_num = skip_to_line($point, *OLDREV, $old_line_num); - while ($old_line = ) { + while (1) { + $old_line = ; + last unless defined $old_line; $old_line_num++; &print_row($old_line, $deletion_bg_color, '', $stable_bg_color); last if ($. == $mark); @@ -888,7 +890,9 @@ sub html_diff { # were not modified in the later revision # my ($base_old_line_num) = $old_line_num; - while ($old_line = ) { + while (1) { + $old_line = ; + last unless defined $old_line; $old_line_num++; &print_row($old_line, $stable_bg_color, $old_line, $stable_bg_color) if ($opt_diff_mode eq 'full' ||