[ogg123][CRIT] rewrite open

diff --git a/_testing/config.yml b/_testing/config.yml
index 439775dc9f7e2b457810bfb8aaeee03c3978ad7c..ab016bf0daed2787bede345acf3d955a92dae0fa 100644 (file)
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -52,7 +52,6 @@ whitelist:
   - mkshorterlink
   - newsline
   - nicklist
-  - ogg123
   - oidenty
   - 'on'
   - osd

diff --git a/scripts/ogg123.pl b/scripts/ogg123.pl
index 274ebbdd02baff6a3d74eb0f63cd4141febcd692..85a6700b59b20e2a42e20387ed79752a35ba2de5 100644 (file)
--- a/scripts/ogg123.pl
+++ b/scripts/ogg123.pl
@@ -64,7 +64,7 @@ sub cmd_ogg123 {
                        }
                }
                
-               open (f, $ogg123file) || return;
+               open (f,'<', $ogg123file) || return;
 
                while ($ogg123linha=<f>) {