Some find versions don't support -L
authorJamie Cameron <jcameron@webmin.com>
Tue, 17 Apr 2007 17:25:06 +0000 (17:25 +0000)
committerJamie Cameron <jcameron@webmin.com>
Tue, 17 Apr 2007 17:25:06 +0000 (17:25 +0000)
lpadmin/cups-driver.pl

index b98402d..292ba0c 100644 (file)
@@ -132,7 +132,9 @@ printf "<td><input name=program size=40 value='%s'></td> </tr>\n",
 printf "<tr> <td valign=top><input type=radio name=mode value=1 %s> %s</td>\n",
        $_[1]->{'mode'} == 1 ? 'checked' : '', $text{'cups_driver'};
 local (@ppds, $d, $f, $ppd, %cache, $outofdate, @files, %donefile);
-open(FIND, "find -L ".quotemeta($config{'model_path'})." -type f -print |");
+local $findver = `find --version 2>&1`;
+local $flag = $findver =~ /GNU\s+find\s+version\s+4\.2/i ? "-L" : "";
+open(FIND, "find $flag ".quotemeta($config{'model_path'})." -type f -print |");
 while(<FIND>) {
        chop;
        /([^\/]+)$/;