projects
/
feisty_meow.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'dev' of feistymeow.org:feisty_meow into dev
[feisty_meow.git]
/
scripts
/
files
/
filename_helper.pl
diff --git
a/scripts/files/filename_helper.pl
b/scripts/files/filename_helper.pl
index b4218166bdace61371b05ba1ca7c56fcc3e0fcb3..50b71edc7a626675923fc7f6ffcacc9c92830a9c 100644
(file)
--- a/
scripts/files/filename_helper.pl
+++ b/
scripts/files/filename_helper.pl
@@
-408,7
+408,8
@@
return;
}
local *DIR;
}
local *DIR;
- opendir DIR, $dir or die "opendir $dir: $!";
+ # if we can't open the dir, just skip to the next one.
+ opendir DIR, $dir or next;
while ($_ = readdir DIR) {
next if /^\.{1,2}$/;
my $path = "$dir/$_";
while ($_ = readdir DIR) {
next if /^\.{1,2}$/;
my $path = "$dir/$_";
@@
-428,7
+429,8
@@
sub find_directories {
my $dir;
foreach $dir (@_) {
local *DIR;
my $dir;
foreach $dir (@_) {
local *DIR;
- opendir DIR, $dir or die "opendir $dir: $!";
+ # if we can't open the dir, just skip to the next one.
+ opendir DIR, $dir or next;
while ($_ = readdir DIR) {
# skip if it's current or parent dir.
next if /^\.{1,2}$/;
while ($_ = readdir DIR) {
# skip if it's current or parent dir.
next if /^\.{1,2}$/;
@@
-455,7
+457,8
@@
sub find_files {
next;
}
local *DIR;
next;
}
local *DIR;
- opendir DIR, $dir or die "opendir $dir: $!";
+ # if we can't open the dir, just skip to the next one.
+ opendir DIR, $dir or next;
while ($_ = readdir DIR) {
# skip if it's current or parent dir.
next if /^\.{1,2}$/;
while ($_ = readdir DIR) {
# skip if it's current or parent dir.
next if /^\.{1,2}$/;