Fix some runtime warns.

diff --git a/bin/engine-di.fm b/bin/engine-di.fm
index 05e027a..45a9968 100755 (executable)
--- a/bin/engine-di.fm
+++ b/bin/engine-di.fm
@@ -165,10 +165,11 @@ do {
                if ($pathslashed=~m{/(\d+)k}) {
                        push @list,"-cache",60*$1/8,"-cache-min",45;
                }
+               push @list,@ARGV;
                push @list,$stream;
                warn Dumper(\@list);
                #system $mplayer @list;
-               do { die "[$&] <$_>" if m{[^-a-zA-Z 0-9/:.@]}; } for @list;
+               do { die "[$&] <$_>" if m{[^-a-zA-Z 0-9/:.@=]}; } for @list;
                system {"bash"} "bash","-c",join(" ",@list);
                exit 0 if $?;
        }

diff --git a/bin/fup b/bin/fup
index 4fe0978..ec166d4 100755 (executable)
--- a/bin/fup
+++ b/bin/fup
@@ -13,7 +13,7 @@ use Data::Dumper;
 my $USER="adsl_303141";
 my $USERNAME="Jan Kratochvil";
 my $PASSWORD=&_priv_postget("uzivatel.gtsnovera.cz.pwd");
-my $IFDEV="eth1";
+my $IFDEV="eth0";
 my $SECS=4;
 my $RX_THRESHOLD=210000;       # 226085
 my $TX_THRESHOLD=210000;       # 291251

diff --git a/bin/sortn b/bin/sortn
index bf87d95..ad0c7d0 100755 (executable)
--- a/bin/sortn
+++ b/bin/sortn
@@ -7,15 +7,15 @@ print sort {
        my $a=$a;
        my $b=$b;
        while ($a ne "" || $b ne "") {
-               $a=~s/^(\D+)//s;
+               $a=~s/^(\D*)//s;
                my $as=$1;
-               $b=~s/^(\D+)//s;
+               $b=~s/^(\D*)//s;
                my $bs=$1;
                my $rs=$as cmp $bs;
                return $rs if $rs;
-               $a=~s/^(\d+)//s;
+               $a=~s/^(\d*)//s;
                my $an=$1;
-               $b=~s/^(\d+)//s;
+               $b=~s/^(\d*)//s;
                my $bn=$1;
                my $rn=$an<=>$bn;
                return $rn if $rn;