===================================================================
RCS file: /cvs/misc/strmode/perl_strmode.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- misc/strmode/perl_strmode.pl	2011/03/27 22:27:25	1.3
+++ misc/strmode/perl_strmode.pl	2011/03/28 03:37:48	1.4
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -T
 
-# $AFresh1: perl_strmode.pl,v 1.2 2011/03/27 21:26:33 andrew Exp $
+# $AFresh1: perl_strmode.pl,v 1.3 2011/03/27 21:27:25 andrew Exp $
 #
 # Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com>
 # Copyright (c) 1990 The Regents of the University of California.
@@ -96,9 +96,10 @@
 @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 ];
+
+    next unless -e _;
 
     my $time = localtime($mtime);
     $time =~ s/^\w+\s+//;