Re: meta tag extraction with TokeParser

[saintmike]

        next if $token->[1] ne 'meta' && $token->[0] ne 'S';
        $meta{$token->[2]{name}} = $token->[2]{content};

If you're seeing warnings about an 'uninitialized value', you should check if $token->[x] exists and is defined before comparing it to a different value or following the alleged reference.

[Anonymous Monk]

I tried adding the following but it didn't change

if ($token->[2] ne '')
{
  $meta{$token->[2]{name}} = $token->[2]{content};
}

[saintmike]

Again, you're not checking if it's defined. Use this instead:

if( defined $token->[2] ) { ... }

[Anonymous Monk]

After posting, I actually tried that instead and that, too, still produces the same results.