diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-24 00:05:42 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-24 00:05:42 -0700 |
| commit | 4ee82d8db14a84475fce764e8bcddf04cdceb5c3 (patch) | |
| tree | 28c2e9cf83d363125cd2bc21870941c59ce32dbb /perl5 | |
| parent | 36f73c24e9910414d47ed44975e44139bf84c84a (diff) | |
| download | dotfiles-4ee82d8db14a84475fce764e8bcddf04cdceb5c3.tar.gz | |
consider lines with only non-printable chars blank
Diffstat (limited to 'perl5')
| -rw-r--r-- | perl5/Local/MrRepo/Repo.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl5/Local/MrRepo/Repo.pm b/perl5/Local/MrRepo/Repo.pm index 8d62762c..edc87e92 100644 --- a/perl5/Local/MrRepo/Repo.pm +++ b/perl5/Local/MrRepo/Repo.pm @@ -62,7 +62,7 @@ sub status { # in the case of command success with zero output, get rid of mr's # own output, so caller can just check for an empty string if ($result->{exit} == 0) { - my @output = grep { not /^$/ } split "\n", $result->{output}; + my @output = grep /[[:print:]]/, split "\n", $result->{output}; $result->{output} = "" if all { /^mr status: / } @output; } |