1. Changed grepdbg to accept a regexp. More useful (to me anyway).

[spider.git] / perl / grepdbg

diff --git a/perl/grepdbg b/perl/grepdbg
index c44fc92b85c3a08f2565ef95e73f91a82886a1ca..250a898b5701aed2647c9e1de1822909cb48207e 100755 (executable)
--- a/perl/grepdbg
+++ b/perl/grepdbg
@@ -43,7 +43,7 @@ for my $arg (@ARGV) {
                last;
        }
 }
-die "usage: dispdbg [[-nnn] ..] <string>\n" unless  $string;
+die "usage: grepdbg [[-nnn] ..] <regexp>\n" unless  $string;
 
 push @list, "0" unless @list;
 for my $entry (@list) {
@@ -54,7 +54,7 @@ for my $entry (@list) {
                while (<$fh>) {
                        my $line = $_;
                        chomp $line;
-                       if ($line =~ m{\Q$string}io) {
+                       if ($line =~ m{$string}io) {
                                my @line =  split '\^', $line;
                                my $t = shift @line;
                                print atime($t), ' ', join('^', @line), "\n";