Fix some runtime warns.

[nethome.git] / bin / engine-di.fm

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;
                }
                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;
                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 $?;
        }
                system {"bash"} "bash","-c",join(" ",@list);
                exit 0 if $?;
        }