Parent Directory | Revision Log | Patch
revision 1.2 by skx, Tue Oct 14 20:40:51 2003 UTC | revision 1.3 by skx, Sun Nov 2 14:03:37 2003 UTC | |
---|---|---|
# | Line 44 my @dirs = grep( /^\/usr/, @INC ); | Line 44 my @dirs = grep( /^\/usr/, @INC ); |
44 | ||
45 | ||
46 | # | # |
47 | # we prefer /share/ to /lib/ since this is arch-indep | |
48 | # | |
49 | if ( grep(m|/share/|, @dirs) ) { | |
50 | @dirs = grep(m|/share/|, @dirs); | |
51 | } | |
52 | ||
53 | # | |
54 | # Find the shortest one. | # Find the shortest one. |
55 | # | # |
56 | @dirs = sort { length( $a ) <=> length( $ b ) } @dirs ; | @dirs = sort { length( $a ) <=> length( $ b ) } @dirs ; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |