ossp-pkg/shiela/shiela.pl 1.38 -> 1.39
--- shiela.pl 2002/12/23 08:52:22 1.38
+++ shiela.pl 2002/12/23 09:09:40 1.39
@@ -167,7 +167,7 @@
sub find_program {
my ($name) = @_;
my ($prog) = '';
- foreach my $dir (split(/:/, "$ENV{PATH}:/usr/local/lib:/usr/lib:/lib")) {
+ foreach my $dir (split(/:/, "$ENV{PATH}:/bin:/usr/bin:/sbin:/usr/sbin")) {
if (-x "$dir/$name") {
$prog = "$dir/$name";
last;
@@ -1712,7 +1712,7 @@
$io->close;
system("$RT->{xdelta} delta $RT->{tmpfile}.null " .
"$RT->{tmpfile}.all $RT->{tmpfile}.xdelta >/dev/null 2>&1");
- $io = new IO::File "uuencode $RT->{tmpfile}.xdelta $Is.xdelta |"
+ $io = new IO::File "$RT->{uuencode} $RT->{tmpfile}.xdelta $Is.xdelta |"
|| die "unable to open uuencode command pipe for reading";
$cvsdiff .= $_ while (<$io>);
$io->close;
@@ -1811,7 +1811,7 @@
unlink("$RT->{tmpfile}.xdelta");
system("$RT->{xdelta} delta $RT->{tmpfile}.old " .
"$RT->{tmpfile}.new $RT->{tmpfile}.xdelta >/dev/null 2>&1");
- $io = new IO::File "uuencode $RT->{tmpfile}.xdelta $Is.xdelta |"
+ $io = new IO::File "$RT->{uuencode} $RT->{tmpfile}.xdelta $Is.xdelta |"
|| die "unable to open uuencode command pipe for reading";
$cvsdiff .= $_ while (<$io>);
$io->close;
|
|
