projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b73aa9d
)
Fixed watchdbg so that simple arguments work again
author
minima
<minima>
Sun, 25 Feb 2001 17:29:23 +0000
(17:29 +0000)
committer
minima
<minima>
Sun, 25 Feb 2001 17:29:23 +0000
(17:29 +0000)
Changes
patch
|
blob
|
history
perl/watchdbg
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index c4810f8ca954bd7c0b8b42ca16e318d25324cc95..c07ff9ace9dea7e2809a0fbdcd92e29ddff02df3 100644
(file)
--- 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
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 7975529655809ac79b1e75447fb827f193f9c86f..c1d6b172beb11a09f63e2c288c7596f152f770f4 100755
(executable)
--- 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 $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;
my $exp = join '|', @ARGV;
my @prev;