Re^3: CPAN doesn't understand continents

No help from me, but I am having the exact same problem . Nothing works ( 5 "North America" "NA" "US" ... ) . Something must have broken recently . I remember using CPAN a couple of years ago and it worked ( tedious , but it worked ) .

Would someone suggest a fix for this or suggest another way to install DBD::Oracle ?

[root@hoqaweb1 ~]# cpan -v
cpan script version 1.03
CPAN.pm version 1.7602
[root@hoqaweb1 ~]#
[download]

Comment on Re^3: CPAN doesn't understand continents Download Code

Replies are listed 'Best First'.
Re^4: CPAN doesn't understand continents by Anonyrnous Monk (Hermit) on Jan 21, 2011 at 00:21 UTC
To debug the issue, I would print out `@nums` and `@$items` (i.e. modify `CPAN/FirstTime.pm`¹). Then you'll know which direction to look further. Maybe there's some non-whitespace junk char in `$num` ... e.g.: `use Data::Dumper; $Data::Dumper::Useqq=1; my $items = [ qw(foo bar baz) ]; my $num = "1 2\0"; @nums = split (' ', $num); print Dumper @nums; my $i = scalar @$items; (warn "invalid items entered, try again\n") if grep (/\D/ \|\| $_ < 1 \|\| $_ > $i, @nums); __END__ $ ./picklist-test.pl $VAR1 = 1; $VAR2 = "2\0"; invalid items entered, try again` [download] Or `@$items` has not enough elements (or is empty)... There isn't really a lot that could go wrong in the test. ___ ¹ If you don't know where it is, `perl -MCPAN::FirstTime -le 'print $INC{q(CPAN/FirstTime.pm)}'` will tell you (use double quotes on Windows).	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: CPAN doesn't understand continents
by Anonyrnous Monk (Hermit) on Jan 21, 2011 at 00:21 UTC

To debug the issue, I would print out @nums and @$items (i.e. modify CPAN/FirstTime.pm¹). Then you'll know which direction to look further.

Maybe there's some non-whitespace junk char in $num ... e.g.:

use Data::Dumper;  $Data::Dumper::Useqq=1;

my $items = [ qw(foo bar baz) ];
my $num = "1 2\0";

@nums = split (' ', $num);
print Dumper @nums;
my $i = scalar @$items;
(warn "invalid items entered, try again\n")
    if grep (/\D/ || $_ < 1 || $_ > $i, @nums);

__END__
$ ./picklist-test.pl
$VAR1 = 1;
$VAR2 = "2\0";
invalid items entered, try again
[download]

Or @$items has not enough elements (or is empty)... There isn't really a lot that could go wrong in the test.

___

¹ If you don't know where it is, perl -MCPAN::FirstTime -le 'print $INC{q(CPAN/FirstTime.pm)}' will tell you (use double quotes on Windows).

[reply]
[d/l]
[select]