perl: "Not a GLOB reference"

Message

appelgebak · Post by **appelgebak** » Wed Feb 02, 2011 7:35 pm

Hi,

is used mp32ogg before, but after a world update now it shows:

"Not a GLOB reference at /usr/lib64/perl5/vendor_perl/5.12.2/MP3/Info.pm line 526."
The line references to "binmode $h".

Curious: I have 5.12.3 installed, but error remains.

Any hints??

Appel

wthrowe · Post by **wthrowe** » Wed Feb 02, 2011 11:16 pm

Does perl-cleaner --all want to rebuild anything?

ocbMaurice · Post by **ocbMaurice** » Fri Feb 04, 2011 1:10 pm

Hi,

I can only tell you that $h should be a filehandle, which it isn't in your case (that's the reason for this error). So I would check where $h is assigned in the code. Maybe you find out why $h is not a valid handle in your case. IMO the code should check if $h is assigned a valid handle or die with an error message ...

hth, Maurice

appelgebak · Post by **appelgebak** » Fri Feb 04, 2011 5:46 pm

After perl-cleaner i get the similar message:

Code: Select all

Not a GLOB reference at /usr/lib64/perl5/vendor_perl/5.12.3/MP3/Info.pm line 526.

So: 5.12.3. is used, and i again emerged mp32ogg.

Little bit frustrating...

BitJam · Post by **BitJam** » Sat Feb 05, 2011 3:10 am

The problem is that MP3::Info is assuming $file is either a scalar filename or a Glob reference. The problem is that Getopt::Long is returning a blessed scalar filename and this confuses MP3::Info.

In /usr/lib64/perl5/vendor_perl/5.12.X/MP3/Info.pm, near line 514 change:

Code: Select all

    if (ref $file)

to:

Code: Select all

    my $ref = ref $file;
    if ($ref and $ref =~ /Glob/i)

Make the identical change near line 1577. This seemed to get mp32ogg working for me but I see there are other places in the same file that might need the same change.