Miscellany

--- /old/policyd-weight   Tue Mar 25 00:25:39 2008
+++ /new/policyd-weight   Fri Mar 28 10:06:46 2008
@@ -23,9 +23,9 @@
 # see http://spf.pobox.com/
 #
 # AUTHOR:  r.felber@ek-muc.de
-# DATE:    Mon Mar 24 23:59:00 CET 2008
+# DATE:    Fri Mar 28 10:08:42 CET 2008
 # NAME:    policyd-weight
-# VERSION: 0.1.14 beta-15
+# VERSION: 0.1.14 beta-16
 # URL:     http://www.policyd-weight.org/
 
 
@@ -78,7 +78,7 @@
 
 use vars qw($csock $s $tcp_socket $sock $new_sock $old_mtime);
 
-our $VERSION   = "0.1.14 beta-15";
+our $VERSION   = "0.1.14 beta-16";
 our $CVERSION  = 5;                 # cache interface version
 our $CMD_DEBUG = 0;                 # -d switch 
 our $KILL;                          # -k switch
@@ -3624,7 +3624,13 @@
     my $who = shift;
     for ( @_ )
     {
-        if( -l $_ )
+
+        # strip trailing '/'
+        # perl and test(1) ignore the request for -l/-L and
+        # do a lstat with S_IFDIR (added in 0.1.14 beta-16)
+        s/\/+$//;
+
+        if ( -l $_ )
         {
             fatal_exit("$who: $_ is a symbolic link. Symbolic links are not expected and not allowed within policyd-weight. Exiting!");
         }