9aec29ef3d
use uar extfs helper as fall-back for deb OBS-URL: https://build.opensuse.org/request/show/128775 OBS-URL: https://build.opensuse.org/package/show/Base:System/mc?expand=0&rev=53
40 lines
942 B
Diff
40 lines
942 B
Diff
--- src/vfs/extfs/helpers/deb.in.orig 2012-04-20 11:21:37.000000000 +0400
|
|
+++ src/vfs/extfs/helpers/deb.in 2012-07-23 17:21:47.000000000 +0400
|
|
@@ -176,6 +176,15 @@
|
|
}
|
|
}
|
|
|
|
+sub _which
|
|
+{
|
|
+ my $app = shift;
|
|
+ foreach my $dir (split/:/, $ENV{'PATH'}) {
|
|
+ return "$dir/$app" if -x "$dir/$app";
|
|
+ }
|
|
+ return undef;
|
|
+}
|
|
+
|
|
$pressinstall=<<EOInstall;
|
|
|
|
WARNING
|
|
@@ -192,6 +201,20 @@
|
|
|
|
umask 077;
|
|
|
|
+
|
|
+# check for required dpkg utilities
|
|
+my $dpkg_deb = _which('dpkg-deb');
|
|
+my $dpkg = _which('dpkg');
|
|
+
|
|
+# use uar extfs-heper if not exists
|
|
+if (not defined $dpkg_deb or not defined $dpkg)
|
|
+{
|
|
+ if ($0 =~ /^(.*)\/deb$/) {
|
|
+ my $uar = "$1/uar" ;
|
|
+ exec $uar, @ARGV;
|
|
+ }
|
|
+}
|
|
+
|
|
if($ARGV[0] eq "list") { shift; &mcdebfs_list(@ARGV); exit 0; }
|
|
elsif($ARGV[0] eq "copyout") { shift; &mcdebfs_copyout(@ARGV); exit 0; }
|
|
elsif($ARGV[0] eq "run") { shift; &mcdebfs_run(@ARGV); exit 0; }
|