Fixed symlink-files-to-hashes

examples/README

@@ -1,6 +1,2 @@
 Small programs that make use of perlquery. Be sure to read the code before
 running them, as many of them make destructive changes.
-
-NOTE! Don't use symlink-files-to-hashes. It has a bad bug that causes it to
-bork the symlinks for any files in subdirectories. (This has to do with
-relative paths.)

examples/symlink-files-to-hashes

@@ -25,9 +25,9 @@ for line in $lines; do
   sum=$(echo $line | awk '{print $1}')
   file=$(echo $line | awk '{print $2}')
 
-  if [[ ! -L $file ]]; then
+  if [[ ! -L "$file" ]]; then
     [[ -e sum ]] || (echo "creating md5($file) = $sum" && cp "$file" $sum)
-    rm $file && echo "symlinking $sum to $file" && ln -s $sum $file
+    rm "$file" && echo "symlinking $sum to $file" && ln -rs $sum "$file"
   else
     echo "skipping symlink $file"
   fi