There are two arrays or lists. One is called
@from_addresses and the other is @destinations. For the program
to work, there must be at least one, possibly many strings in
each of those arrays. Never under any circumstance should there
be an empty @destinations list when there is even one string in
@from_addresses.
I wrote a test for this condition and it seems to be
missing it every time. Here is the test:
#Is there enough to work with?
die("***YOU MUST HAVE A DESTINATION ADDRESS/NETWORK address.\n")
if (@destinations) && ( ! @from_addresses);
I then intentionally feed in only one argument, hit
Enter and no die. Perl -d with a break point at the lines in
question lets me see that @from_addresses has the one argument I
entered and @destinations is undefined. It looks like that
should blow the siren, so to speak.
I have no excuse except that I forgot the test and the
code successfully ran for almost a month before someone in our
group forgot the destination and was bewildered by the "Use of
uninitialized" messages.
Should the code
if (@destinations) { #something to do
#code to run
} #something to do
succeed when there is at least one string in that array and fail
if the array is undefined?
Thank you.
Martin McCormick
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
