pkg/42751: audio/mp32ogg: Not a GLOB reference at /usr/pkg/lib/perl5/vendor_perl/5.10.0/MP3/Info.pm line 526.

[pettai%nordu.net@localhost]

>Number:         42751
>Category:       pkg
>Synopsis:       audio/mp32ogg: Not a GLOB reference at 
>/usr/pkg/lib/perl5/vendor_perl/5.10.0/MP3/Info.pm line 526.
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    pkg-manager
>State:          open
>Class:          change-request
>Submitter-Id:   net
>Arrival-Date:   Fri Feb 05 23:30:00 +0000 2010
>Originator:     Fredrik Pettai
>Release:        NetBSD 5.0_STABLE
>Organization:
NORDUnet A/S
>Environment:
NetBSD morran 5.0_STABLE NetBSD 5.0_STABLE (MORRAN) #0: Tue Jan 19 23:17:12 CET 
2010  root@morran:/usr/obj/sys/arch/i386/compile/MORRAN i386
>Description:
In pkgsrc-current, audio/mp32ogg doesn't work anymore.
I also found the same error reported in mandriva linux, which I based the patch 
on below.

>How-To-Repeat:
-bash-4.1$ mp32ogg myfile.mp3 
mp32ogg v0.11
(c) 2000-2002 Nathan Walp
Released without warranty under the terms of the Artistic License

Not a GLOB reference at /usr/pkg/lib/perl5/vendor_perl/5.10.0/MP3/Info.pm line 
526.
>Fix:
-bash-4.1$ cvs diff -u
? patches
cvs diff: Diffing .
Index: distinfo
===================================================================
RCS file: /cvsroot/pkgsrc/audio/mp32ogg/distinfo,v
retrieving revision 1.2
diff -u -r1.2 distinfo
--- distinfo    23 Feb 2005 20:39:49 -0000      1.2
+++ distinfo    5 Feb 2010 23:11:11 -0000
@@ -3,3 +3,4 @@
 SHA1 (mp32ogg-0.11) = 03ac3955b8ed79233d6f3952152535f6cff48ff5
 RMD160 (mp32ogg-0.11) = 3ae39a86e662e37359d5041533413bd66ea27af4
 Size (mp32ogg-0.11) = 9216 bytes
+SHA1 (patch-aa) = cbdc4a2df4d8fc2d6c6ef240ba95c44cf807c899

-bash-4.1$ diff -u /dev/null patches/patch-aa 
--- /dev/null   2010-02-06 00:19:18.000000000 +0100
+++ patches/patch-aa    2010-02-06 00:18:44.000000000 +0100
@@ -0,0 +1,15 @@
+$NetBSD$
+
+--- mp32ogg-0.11.orig  2010-02-06 00:13:36.000000000 +0100
++++ mp32ogg-0.11       2010-02-06 00:16:44.000000000 +0100
+@@ -144,7 +144,9 @@
+ }
+ 
+ sub ConvertFile() {
+-      my $mp3file = shift(@_);
++      # force arg stringfication to get actual filename, not getopt::long
++      # callback
++      my $mp3file = "" . shift(@_);
+       my $delete = $opt_delete;
+       my $filename = $opt_rename;
+       my $lowercase = $opt_lowercase;