The following commit has been merged in the master branch:
commit 0814d1b1eb42c08809d31980d9a7f2b921c713e5
Author: Guillem Jover <[email protected]>
Date:   Sat Nov 7 14:04:41 2009 +0100

    Use find with -L instead of deprecated -follow

diff --git a/dselect/methods/disk/install b/dselect/methods/disk/install
index 868c64a..d8a3df2 100755
--- a/dselect/methods/disk/install
+++ b/dselect/methods/disk/install
@@ -70,8 +70,9 @@ do
                                defined($c= open(X,"-|")) ||
                                        die "failed to fork for find: $!\n";
                                if (!$c) {
-                                       exec("find", length($binaryprefix)
-                                            ? $binaryprefix : ".","-follow",
+                                       exec("find", "-L",
+                                            length($binaryprefix) ?
+                                            $binaryprefix : ".",
                                             
"-name",$base,"-o","-name",$msdosbase);
                                        die "failed to exec find: $!\n";
                                }
diff --git a/dselect/methods/disk/setup b/dselect/methods/disk/setup
index 8f52d16..6c7e3c6 100755
--- a/dselect/methods/disk/setup
+++ b/dselect/methods/disk/setup
@@ -428,7 +428,7 @@ check_binary () {
                return
        fi
 
-       if ! ( find "$mountpoint$2/" -follow -name '*.deb' -print \
+       if ! ( find -L "$mountpoint$2/" -name '*.deb' -print \
                | head -n 1 ) 2>/dev/null  | grep . >/dev/null
        then
                echo "\`$2' does not contain any *.deb packages.  Hmmpf."
diff --git a/dselect/methods/multicd/install b/dselect/methods/multicd/install
index 50fb07f..cd8c5ca 100755
--- a/dselect/methods/multicd/install
+++ b/dselect/methods/multicd/install
@@ -151,8 +151,8 @@ Please change the discs and press <RETURN>.
                                defined($c= open(X,"-|")) ||
                                        die "failed to fork for find: $!\n";
                                if (!$c) {
-                                       exec("find", length($binaryprefix)
-                                            ? $binaryprefix : ".","-follow",
+                                       exec("find", "-L",
+                                            length($binaryprefix) ? 
$binaryprefix : ".",
                                             
"-name",$base,"-o","-name",$msdosbase);
                                        die "failed to exec find: $!\n";
                                }
diff --git a/dselect/methods/multicd/setup b/dselect/methods/multicd/setup
index 7bcfbe0..49ae83a 100755
--- a/dselect/methods/multicd/setup
+++ b/dselect/methods/multicd/setup
@@ -508,7 +508,7 @@ check_binary () {
 # .deb files.  Each CD should contain all Packages.cd files but doesn't
 # need to contain the .deb files.
 #
-#      if ! { find "$mountpoint$2" -follow -name '*.deb' -print \
+#      if ! { find -L "$mountpoint$2" -name '*.deb' -print \
 #              | head -1 | grep . ; } >/dev/null 2>&1 && [ -z "$multi" ];
 #      then
 #              echo "\`$2' does not contain any *.deb packages."
diff --git a/scripts/dpkg-scanpackages.pl b/scripts/dpkg-scanpackages.pl
index ea607af..d10540d 100755
--- a/scripts/dpkg-scanpackages.pl
+++ b/scripts/dpkg-scanpackages.pl
@@ -158,7 +158,6 @@ if ($options{arch}) {
 else {
      @find_args = ('-name', "*.$type");
 }
-push @find_args, '-follow';
 
 my ($binarydir, $override, $pathprefix) = @ARGV;
 
@@ -169,7 +168,7 @@ defined($override) and (-e $override or
 $pathprefix = '' if not defined $pathprefix;
 
 my $find_h = new IO::Handle;
-open($find_h,'-|','find',"$binarydir/",@find_args,'-print')
+open($find_h, '-|', 'find', '-L', "$binarydir/", @find_args, '-print')
      or syserr(_g("Couldn't open %s for reading"), $binarydir);
 FILE:
     while (<$find_h>) {
diff --git a/scripts/dpkg-scansources.pl b/scripts/dpkg-scansources.pl
index 6febd5f..2da7add 100755
--- a/scripts/dpkg-scansources.pl
+++ b/scripts/dpkg-scansources.pl
@@ -354,7 +354,7 @@ sub main {
     load_src_override $Src_override, $override;
     load_extra_override $Extra_override_file if defined $Extra_override_file;
 
-    open FIND, "find \Q$dir\E -follow -name '*.dsc' -print |"
+    open FIND, "find -L \Q$dir\E -name '*.dsc' -print |"
         or syserr(_g("cannot fork for %s"), "find");
     while (<FIND>) {
        chomp;
diff --git a/src/archives.c b/src/archives.c
index 6a4b42a..829a195 100644
--- a/src/archives.c
+++ b/src/archives.c
@@ -1082,7 +1082,8 @@ void archivefiles(const char *const *argv) {
       for (i=0, ap=argv; *ap; ap++, i++);
       arglist = m_malloc(sizeof(char *) * (i + 15));
       arglist[0] = FIND;
-      for (i=1, ap=argv; *ap; ap++, i++) {
+      arglist[1] = "-L";
+      for (i = 2, ap = argv; *ap; ap++, i++) {
         if (strchr(FIND_EXPRSTARTCHARS,(*ap)[0])) {
           char *a;
           a= m_malloc(strlen(*ap)+10);
@@ -1096,7 +1097,6 @@ void archivefiles(const char *const *argv) {
       /* When editing these, make sure that arglist is malloced big enough,
        * above.
        */
-      arglist[i++] = "-follow";
       arglist[i++] = "-name";
       arglist[i++] = ARCHIVE_FILENAME_PATTERN;
       arglist[i++] = "-type";

-- 
dpkg's main repository


-- 
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]

Reply via email to