Author: dom Date: 2008-05-11 18:53:50 +0100 (Sun, 11 May 2008) New Revision: 1161 Modified: trunk/lib/OpenGuides/Test.pm trunk/lib/OpenGuides/Utils.pm Log: fix uninitialized warnings in test Modified: trunk/lib/OpenGuides/Test.pm =================================================================== --- trunk/lib/OpenGuides/Test.pm 2008-05-10 22:56:16 UTC (rev 1160) +++ trunk/lib/OpenGuides/Test.pm 2008-05-11 17:53:50 UTC (rev 1161) @@ -65,6 +65,7 @@ home_name => "Home", geo_handler => 1, force_wgs84 => 1, + contact_email => 'admins(a)example.org'org', } ); Modified: trunk/lib/OpenGuides/Utils.pm =================================================================== --- trunk/lib/OpenGuides/Utils.pm 2008-05-10 22:56:16 UTC (rev 1160) +++ trunk/lib/OpenGuides/Utils.pm 2008-05-11 17:53:50 UTC (rev 1161) @@ -470,7 +470,7 @@ @to = @{$args{to}} if $args{to}; my @bcc; push @to, $config->contact_email if $args{admin}; - die "No recipients specified" unless scalar @to; + die "No recipients specified" unless $to[0]; die "No subject specified" unless $args{subject}; die "No body specified" unless $args{body}; my $to_str = join ',', @to;