[Slackbuilds-users] perlprimer problem

[Markus Hutmacher]

Am 12/24/2013 01:01 PM, schrieb Petar Petrov:
> Hi guys,
>
> when I try to start perlprimer I get the following:
>
> bash-4.2$ perl /usr/bin/perlprimer.pl 
> "my" variable $k masks earlier declaration in same statement at /usr/bin/perlprimer.pl line 3107.
> syntax error at /usr/bin/perlprimer.pl line 3099, near "$k qw(a g c t)"
> syntax error at /usr/bin/perlprimer.pl line 3102, near "}"
> Global symbol "$pd_full" requires explicit package name at /usr/bin/perlprimer.pl line 3111.
> Global symbol "$pd_full" requires explicit package name at /usr/bin/perlprimer.pl line 3121.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3132.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3133.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3134.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3134.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3134.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3151.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3154.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3155.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3156.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3162.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3163.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3164.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3165.
> Global symbol "$l" requires explicit package name at /usr/bin/perlprimer.pl line 3165.
> syntax error at /usr/bin/perlprimer.pl line 3187, near "}"
> /usr/bin/perlprimer.pl has too many errors.
>
> Since I am the maintainer of this, I tried to search a solution but no luck. Can anybody help?
>
> regards,
>
> petar
> _______________________________________________
> SlackBuilds-users mailing list
> SlackBuilds-users at slackbuilds.org
> http://lists.slackbuilds.org/mailman/listinfo/slackbuilds-users
> Archives - http://lists.slackbuilds.org/pipermail/slackbuilds-users/
> FAQ - http://slackbuilds.org/faq/
>
Hi,

I'm not running this package but took a look at the sources. Probably
there are parentheses missing in line 3099 of perlprimer.pl

the following code should run:

3095# create a binding array for each of the four bases
3096   for $l (0 .. $pfl-1) {
3097        my $mbase = substr($fprimer_r, $l, 1);
3098       $primer_hash{$mbase}[$l]=1;
3099        for $k (qw(a g c t)) {
3100            $primer_hash{$k}[$l] ||=0;
3101        }
3102    }

without the parentheses qw(a g c t) is not in array context, but the for
loop needs an array to work.

Regards

Markus

-- 

Markus Hutmacher

mailing at markhu.de