aboutsummaryrefslogtreecommitdiffstats
path: root/find-provides.perl.in
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2006-04-03 13:09:11 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2006-04-03 13:09:11 +0000
commit44a4d034bd0e3c91da1232ce8f5f3527c9c574fa (patch)
treef1da44ee151ea5c6d9ffc9b32443a74730bd47b7 /find-provides.perl.in
parentbf396f8c519268844de6ecfac8c374fc70b75606 (diff)
downloadrpm-setup-44a4d034bd0e3c91da1232ce8f5f3527c9c574fa.tar
rpm-setup-44a4d034bd0e3c91da1232ce8f5f3527c9c574fa.tar.gz
rpm-setup-44a4d034bd0e3c91da1232ce8f5f3527c9c574fa.tar.bz2
rpm-setup-44a4d034bd0e3c91da1232ce8f5f3527c9c574fa.tar.xz
rpm-setup-44a4d034bd0e3c91da1232ce8f5f3527c9c574fa.zip
* Require only .so that are in standard paths
* Use ldd instead of objdump to get the list of required .so. This enables to get the so paths.
Diffstat (limited to 'find-provides.perl.in')
0 files changed, 0 insertions, 0 deletions
#n58'>58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102
package fs::wild_device; # $Id$

use diagnostics;
use strict;

use common;


sub analyze {
    my ($dev) = @_;

    if ($dev =~ m!^/u?dev/(.*)!) {
	'dev', $dev;
    } elsif ($dev !~ m!^/! && (-e "/dev/$dev" || -e "$::prefix/dev/$dev")) {
	'dev', "/dev/$dev";
    } elsif ($dev =~ /^LABEL=(.*)/) {
	'label', $1;
    } elsif ($dev eq 'none' || $dev eq 'rootfs') {
	'virtual';
    } elsif ($dev =~ m!^(\S+):/\w!) {
	'nfs';
    } elsif ($dev =~ m!^//\w!) {
	'smb';
    } elsif ($dev =~ m!^http://!) {
	'dav';
    }
}