From dcae41c40310577b371cb142c87fe4200197ff9c Mon Sep 17 00:00:00 2001
From: lace <>
Date: Thu, 8 May 2008 09:08:33 +0000
Subject: [PATCH] Fix some runtime warns.

---
 bin/engine-di.fm | 3 ++-
 bin/fup          | 2 +-
 bin/sortn        | 8 ++++----
 3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/bin/engine-di.fm b/bin/engine-di.fm
index 05e027a..45a9968 100755
--- 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
--- 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
--- 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;
-- 
1.8.3.1