1 files changed, 32 insertions, 0 deletions
diff --git a/media-sound/twolame/files/0.3.13-perl-tests.patch b/media-sound/twolame/files/0.3.13-perl-tests.patch
new file mode 100644
index 000000000000..5ec5b6601770
--- /dev/null
+++ b/media-sound/twolame/files/0.3.13-perl-tests.patch
@@ -0,0 +1,32 @@
+From 11a5ecb89de1e61b016f3d7f358b09a4e611f1ad Mon Sep 17 00:00:00 2001
+From: Kent Fredric <kentfredric@gmail.com>
+Date: Tue, 17 Jan 2017 12:18:10 +1300
+Subject: [PATCH] tests/test.pl: stat the right file
+
+stat(@_) is effectively stat scalar @_
+
+becasue "stat" has a signature of "$" which coerces arrays to
+scalars, which here, returns the length of the array.
+
+This is going to be number 1, instead of the desired argument,
+     the filename.
+---
+ tests/test.pl | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/tests/test.pl b/tests/test.pl
+index 658eadf..5513d6e 100755
+--- a/tests/test.pl
++++ b/tests/test.pl
+@@ -185,7 +185,7 @@ sub input_filepath {
+ }
+ 
+ sub filesize {
+-  return (stat(@_))[7];
++  return (stat($_[0]))[7];
+ }
+ 
+ sub md5_file {
+-- 
+2.11.0
+