Help for this page

Select Code to Download

Select or download this

$ perl -MO=Deparse,-p,-q -we '$File::Find::prune= not $recurse and ($F
+ile::Find::dir ne $File::Find::topdir);'
Useless use of string ne in void context at -e line 1.
...
BEGIN { $^W = 1; }
(($File::Find::prune = (!$recurse)) and ($File::Find::dir ne $File::Fi
+nd::topdir));
-e syntax OK