script to clean out my undo directory

1 files changed, 13 insertions, 0 deletions

diff --git a/bin/clean-vim-undo b/bin/clean-vim-undo
new file mode 100755
index 0000000..0c234eb
--- /dev/null
+++ b/bin/clean-vim-undo
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $undodir = "$ENV{HOME}/.vim/undo";
+opendir my $undo, $undodir
+    or die "can't open $undodir: $!";
+
+for my $undofile (readdir($undo)) {
+    next unless -f "$undodir/$undofile";
+    (my $file = $undofile) =~ s{%}{/}g;
+    unlink "$undodir/$undofile" unless -e $file && $file =~ m{^/};
+}