diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2019-12-28 20:00:41 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-12-28 20:00:41 +0000 |
| commit | 83edaaa67d400783bbca56c9f944ccdaa38490e5 (patch) | |
| tree | e78676bfc9da72ecf3edcf08948d059eb492445b /lib | |
| parent | 01f3f1c216cea581fd9efd850aa781520dda3729 (diff) | |
| download | dotfiles-83edaaa67d400783bbca56c9f944ccdaa38490e5.tar.gz | |
fix use of undefined value
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5/Local/MrRepo/Repo/Git/Annex.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm index 03f9b6a1..7e875476 100644 --- a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm +++ b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm @@ -171,7 +171,7 @@ sub review_unused { system('xdg-open', $contentlocation); } elsif ($response eq 'b' and $i > 0) { pop @to_drop - if $to_drop[$#to_drop] eq + if @to_drop and $to_drop[$#to_drop] eq $unused_files[--$i]->{number}; next UNUSED; } elsif ($response eq 'd' and $i > 0) { |