workaround: For some reason piping yes to opkg never returns when called from perl

Has been seen with yes, and echo y, etc.  Loops do not return.

In order to allow packages that do not need interaction to install we have pulled out 'yes' for now.
This commit is contained in:
Conrad Lara - KG6JEI 2014-06-26 21:29:39 -07:00
parent 2a8692d5a0
commit 3e0ec32fca
1 changed files with 2 additions and 2 deletions

View File

@ -321,7 +321,7 @@ foreach(`cat /etc/permpkg 2>/dev/null`)
if($parms{button_ul_pkg} and -f "/tmp/web/upload/file")
{
system "mv -f /tmp/web/upload/file /tmp/web/upload/newpkg.ipk";
push @pkg_output, `yes | opkg -force-overwrite install /tmp/web/upload/newpkg.ipk 2>&1`;
push @pkg_output, `opkg -force-overwrite install /tmp/web/upload/newpkg.ipk 2>&1`;
system "rm -rf /tmp/opkg-*";
}
@ -330,7 +330,7 @@ if($parms{button_dl_pkg} and $parms{dl_pkg} ne "default")
{
if(get_default_gw() ne "none")
{
push @pkg_output, `yes | opkg -force-overwrite install $parms{dl_pkg} 2>&1`;
push @pkg_output, `opkg -force-overwrite install $parms{dl_pkg} 2>&1`;
}
else
{