From: minima Date: Sun, 25 Feb 2001 17:29:23 +0000 (+0000) Subject: Fixed watchdbg so that simple arguments work again X-Git-Tag: R_1_47_PRE1~9 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=78efbb74096d56939a9efcfecd0c5b93ba9e9741;p=spider.git Fixed watchdbg so that simple arguments work again --- diff --git a/Changes b/Changes index c4810f8c..c07ff9ac 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +25Feb01======================================================================= +1. Fixed watchdbg so that simple arguments work again 22Feb01======================================================================= 1. Added platform name to sh/version 2. changed client.pl so that it send \r\n instead of \n on telnet connects diff --git a/perl/watchdbg b/perl/watchdbg index 79755296..c1d6b172 100755 --- a/perl/watchdbg +++ b/perl/watchdbg @@ -31,7 +31,8 @@ use strict; my $fp = DXLog::new('debug', 'dat', 'd'); my @today = Julian::unixtoj(time()); my $fh = $fp->open(@today) or die $!; -my $nolines = shift if $ARGV[0] =~ /^\d+$/ || 1; +my $nolines = 1; +$nolines = shift if $ARGV[0] =~ /^\d+$/; my $exp = join '|', @ARGV; my @prev;