| Subject: | warning: uninitialized value in string eq at t/html.t |
test t/html.t show some warnings of uninitialized value
Perl version:
This is perl, v5.8.8 built for i486-linux-gnu-thread-multi
Operating System vendor and version:
Linux debian 2.6.22-3-686 #1 SMP Mon Nov 12 08:32:57 UTC 2007 i686 GNU/Linux
| Subject: | html.t.patch |
--- t/html.t 2007-06-24 11:57:52.000000000 -0300
+++ ../../libpod-tree-perl_1.15/t/html.t 2008-04-07 18:19:17.000000000 -0300
@@ -78,13 +78,14 @@
sub Source
{
- my($html, $actual) = @_;
+ my $html = shift;
+ my $actual = shift || '';
$html->set_options(toc => 0);
$html->translate;
my $expected = ReadFile("$Dir/paragraph.exp");
- $$actual eq $expected or Not; OK;
+ $actual eq $expected or Not; OK;
}
sub Dest1
@@ -128,7 +129,7 @@
sub Dest4
{
- my $actual;
+ my $actual = '';
my $html = new Pod::Tree::HTML "$Dir/paragraph.pod", \$actual;
$html->set_options(toc => 0);