![]() ![]() | ![]() |
version 1.8, 2009/07/05 21:23:42 | version 1.21, 2013/04/04 15:06:40 |
---|---|
Line 37 http://www.lon-capa.org/ | Line 37 http://www.lon-capa.org/ |
<perlscript mode="fg" dist="default"> | <perlscript mode="fg" dist="default"> |
#print("Not wrapping setuid scripts\n"); | #print("Not wrapping setuid scripts\n"); |
</perlscript> | </perlscript> |
<perlscript mode="fg" dist="suse9.2 suse9.3 sles9 sles10 suse10.1 suse10.2 suse10.3 suse11.1"> | <perlscript mode="fg" dist="suse9.2 suse9.3 sles9 sles10 sles11 suse10.1 suse10.2 suse10.3 suse11.1 suse11.2 suse11.3 suse11.4 suse12.1 suse12.2 suse12.3 fedora14 fedora15 fedora16 fedora17 fedora18 ubuntu12"> |
$fslist='<TARGET />'; | $fslist='<TARGET />'; |
open(FIND, "find <TARGET /> -xdev -type f \\( -perm -04000 -o -perm -02000 \\) -print|"); | open(FIND, "find <TARGET /> -xdev -type f \\( -perm -04000 -o -perm -02000 \\) -print|"); |