blob: 98efc19dcebd483189da371662d3edd60ffc18f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/perl -T
$ENV{XAUTHORITY} or $ENV{XAUTHORITY} = "$ENV{HOME}/.Xauthority";
$ENV{PATH} = '/bin:/usr/bin:/usr/sbin:/usr/X11R6/bin';
$urpmi = 'urpmi';
if (-f $urpmi && $ENV{DEBUG_URPMI}) { $urpmi = './urpmi' }
@ARGV = map { /(.*)/ ; $1 } @ARGV;
exec $urpmi, "-X", @ARGV
or die "Can't exec $urpmi: $!\n";
|
