Parent Directory | Revision Log | Patch
revision 792 by dpavlin, Wed Dec 10 15:15:22 2008 UTC | revision 840 by dpavlin, Sun Dec 14 23:10:23 2008 UTC | |
---|---|---|
# | Line 38 sub { | Line 38 sub { |
38 | my ($self) = @_; | my ($self) = @_; |
39 | ||
40 | my $patt = $self->pattern; | my $patt = $self->pattern; |
41 | my $opt = ''; | |
42 | $opt = '--' if $patt =~ m{^-}; | |
43 | ||
44 | my $cmd = 'grep -rn ' . $patt . ' ' . $self->path; | if ( $patt =~ m{'} ) { |
45 | $self->_grep_command( $cmd ); | $patt = qq|"$patt"|; |
46 | } else { | |
47 | $patt = qq|'$patt'|; | |
48 | } | |
49 | ||
50 | my $cmd = qq|grep -rn $opt $patt | . $self->path; | |
51 | warn "# $cmd"; | warn "# $cmd"; |
52 | $self->_grep_command( $cmd ); | |
53 | ||
54 | my @results; | my @results; |
55 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |