update URL and copyright

[etc/zsh.git] / .zsh / sourcedir

diff --git a/.zsh/sourcedir b/.zsh/sourcedir
index ae7632ae96fcd671c40e13a51bf6c89130c694d2..cae94672df05740449553278936e699e6bdd0538 100644 (file)
--- a/.zsh/sourcedir
+++ b/.zsh/sourcedir
@@ -2,7 +2,7 @@
 #
 # Defines helper function to source files in a directory
 #
-# Copyright © 1994–2008 martin f. krafft <madduck@madduck.net>
+# Copyright © 1994–2017 martin f. krafft <madduck@madduck.net>
 # Released under the terms of the Artistic Licence 2.0
 #
 # Source repository: http://git.madduck.net/v/etc/zsh.git
@@ -12,16 +12,19 @@
 
 sourcedir() {
   if [ ! -d "$1" ]; then
-    error "no such directory: ${1#$ZDOTDIR/}"
+    zerror "no such directory: $1"
     return 1
   fi
-  debug "sourcing directory ${1#$ZDOTDIR/}"
-  for f in "$1"/*(.N); do
+#  zdebug "sourcing directory ${1#$ZDOTDIR/}"
+  for f in "$1"/*(.N,@N); do
     case "$f" in
-      *~|*.bak|*.sw?|*.zwc|*.disabled) continue;;
+      *~|*.bak|*.old|*.sw?|*.zwc|*.disabled) continue;;
+      *-BREAK_HERE)
+        zinfo "Breaking out of sourcing file in '$1' due to file '${f##*/}'…"
+        break;;
     esac
-    debug "  sourcing file $f"
-    . "$f"
+#    zdebug "  sourcing file $f"
+    source "$f"
   done
 }