===================================================================
RCS file: /cvs/misc/strmode/perl_strmode.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.5
diff -u -r1.1.1.1 -r1.5
--- misc/strmode/perl_strmode.pl	2011/03/27 21:54:35	1.1.1.1
+++ misc/strmode/perl_strmode.pl	2011/03/28 03:38:52	1.5
@@ -1,20 +1,34 @@
 #!/usr/bin/perl -T
 
-# $AFresh1$
+# $AFresh1: perl_strmode.pl,v 1.4 2011/03/28 02:37:48 andrew Exp $
 #
 # Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com>
+# Copyright (c) 1990 The Regents of the University of California.
+# All rights reserved.
 #
-# Permission to use, copy, modify, and distribute this software for any
-# purpose with or without fee is hereby granted, provided that the above
-# copyright notice and this permission notice appear in all copies.
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+# 3. Neither the name of the University nor the names of its contributors
+#    may be used to endorse or promote products derived from this software
+#    without specific prior written permission.
 #
-# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
 
 use warnings;
 use strict;
@@ -38,11 +52,9 @@
         when (S_IFREG)  { $p .= '-' }    # regular
         when (S_IFLNK)  { $p .= 'l' }    # symbolic link
         when (S_IFSOCK) { $p .= 's' }    # socket
-
-        #ifdef S_IFIFO XXX How important is this ifdef?
+#ifdef S_IFIFO XXX How important is this? Is S_IFIFO ever not set?
         when (S_IFIFO) { $p .= 'p' }     # fifo
-
-        #endif
+#endif
         default { $p .= '?' }            # unknown
     }
 
@@ -84,9 +96,9 @@
 @files = '.' unless @files;
 
 foreach my $file (@files) {
-    next unless -e $file;
     my ( $mode, $nlink, $uid, $gid, $size, $mtime )
-        = ( stat(_) )[ 2 .. 5, 7, 9 ];
+        = ( lstat($file) )[ 2 .. 5, 7, 9 ]
+            or next;
 
     my $time = localtime($mtime);
     $time =~ s/^\w+\s+//;