in reply to Prototyping - is it necessary?

You have another bug in your code (or you transcribed it incorrectly): 

(my $datafile, $chomp) = @_;

[download]
my is not going to apply to $chomp. Under strict, this should throw an error Global symbol "$chomp" requires explicit package name.

Try this instead: 

my ($datafile, $chomp) = @_;

[download]
Ivan Heffner
Sr. Software Engineer, DAS Lead
WhitePages.com, Inc.

Replies are listed 'Best First'.
Re^2: Prototyping - is it necessary?
by bioMan (Beadle) on Sep 01, 2005 at 19:49 UTC

    Yes, I caught that bug after my post. Originally I had a statement before

    (my $datafile, $chomp) = @_;

    That read,

    my $chomp = 0;

    ... but I removed it knowing that if I could remove the prototyping and only pass in a value for $datafile then $chomp would automatically be set to undef. I forgot to move "my" outside the parentheses. Poof! a bug!

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom