[BACK]Return to perl_strmode.pl CVS log [TXT][DIR] Up to [local] / misc / strmode

Diff for /misc/strmode/perl_strmode.pl between version 1.2 and 1.3

version 1.2, 2011/03/27 22:26:33 version 1.3, 2011/03/27 22:27:25
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
   
 # $AFresh1: perl_strmode.pl,v 1.1.1.1 2011/03/27 20:54:35 andrew Exp $  # $AFresh1: perl_strmode.pl,v 1.2 2011/03/27 21:26:33 andrew Exp $
 #  #
 # Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com>  # Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com>
 # Copyright (c) 1990 The Regents of the University of California.  # Copyright (c) 1990 The Regents of the University of California.
Line 52 
Line 52 
         when (S_IFREG)  { $p .= '-' }    # regular          when (S_IFREG)  { $p .= '-' }    # regular
         when (S_IFLNK)  { $p .= 'l' }    # symbolic link          when (S_IFLNK)  { $p .= 'l' }    # symbolic link
         when (S_IFSOCK) { $p .= 's' }    # socket          when (S_IFSOCK) { $p .= 's' }    # socket
   #ifdef S_IFIFO XXX How important is this? Is S_IFIFO ever not set?
         #ifdef S_IFIFO XXX How important is this ifdef?  
         when (S_IFIFO) { $p .= 'p' }     # fifo          when (S_IFIFO) { $p .= 'p' }     # fifo
   #endif
         #endif  
         default { $p .= '?' }            # unknown          default { $p .= '?' }            # unknown
     }      }
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>