mdw@git.distorted.org.uk Git - termux-packages/blob - packages/netpbm/buildtools-installnetpbm.pl.patch

   1 diff -u -r ../netpbm-advanced-r3084/buildtools/installnetpbm.pl ./buildtools/installnetpbm.pl
   2 --- ../netpbm-advanced-r3084/buildtools/installnetpbm.pl        2017-10-06 07:49:15.000000000 +0200
   3 +++ ./buildtools/installnetpbm.pl       2017-10-06 12:18:07.809552955 +0200
   4 @@ -32,16 +32,7 @@
   5
   6      my ($prompt, $default) = @_;
   7
   8 -    print("$prompt ($default) ==> ");
   9 -
  10 -    my $response = <STDIN>;
  11 -
  12 -    chomp($response);
  13 -    if ($response eq "") {
  14 -        $response = $default;
  15 -    }
  16 -
  17 -    return $response;
  18 +    return $default;
  19  }
  20
  21
  22 @@ -185,7 +176,7 @@
  23          $default = "/usr/local/netpbm";
  24      }
  25
  26 -    my $response = fsObjPrompt("install prefix", $default);
  27 +    my $response = "@TERMUX_PREFIX@";
  28
  29      my $prefix;
  30
  31 @@ -573,7 +564,7 @@
  32          $done = $FALSE;
  33
  34          while (!$done) {
  35 -            my $response = prompt("Y(es) or N(o)", "Y");
  36 +            my $response = "N";
  37
  38              if (uc($response) eq "Y") {
  39                  execLdconfig();