diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-09-08 10:27:30 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-09-08 10:31:15 -0700 |
commit | e3fdba5875e0847ecec6c4adaadbeca925570750 (patch) | |
tree | 7323b9291e8fdb40385fa00b050fc376a9703b39 /bin/locmaint | |
parent | 2d1f5bef98c0eb94ba388a9874ab19e12b06e415 (diff) | |
download | dotfiles-e3fdba5875e0847ecec6c4adaadbeca925570750.tar.gz |
empty_dir_or_list: ignore empty emacs-notes
Diffstat (limited to 'bin/locmaint')
-rwxr-xr-x | bin/locmaint | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/bin/locmaint b/bin/locmaint index 30808620..750e5628 100755 --- a/bin/locmaint +++ b/bin/locmaint @@ -656,9 +656,9 @@ Check whether C<$dir> contains any hidden or unhidden files, returning a true value if it does not, a false value if it does. If it does, print them. -As a special exception, ignore a zero-sized file named '.keep' (which +As a special exception, ignore zero-sized files named '.keep' (which is used to prevent empty directories getting clobbered by things like -snap). +snap) and 'emacs-notes'. =cut @@ -669,7 +669,8 @@ sub empty_dir_or_list { my @files = grep $_ ne '.' && $_ ne '..' - && !($_ eq ".keep" && -z catfile $dir, ".keep"), readdir $dirh; + && !(($_ eq ".keep" || $_ eq "emacs-notes") && -z catfile $dir, $_), + readdir $dirh; if (@files == 0) { return 1; |