From 78efbb74096d56939a9efcfecd0c5b93ba9e9741 Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 25 Feb 2001 17:29:23 +0000 Subject: [PATCH] Fixed watchdbg so that simple arguments work again --- Changes | 2 ++ perl/watchdbg | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) 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; -- 2.43.0