Select Code to Download

#!/usr/bin/perl

...

ok( ($errors && ($errors->[0] =~ /Journal file not found/i)), "some te
+xt 1 $errors->[0]" );
ok( ($errors && ($errors->[0] =~ /Journal file not found/i)), "some te
+xt 2 $errors->[0]" );

Use of uninitialized value in concatenation (.) or string at poc.pl li
+ne 14.
[[[ARRAY(0x137cd48)]]] [[[some text 1 ]]]
...
Use of uninitialized value in concatenation (.) or string at poc.pl li
+ne 15.
Use of uninitialized value $name in concatenation (.) or string at poc
+.pl line 11.
[[[some text 2 ]]] [[[]]]

#!/usr/bin/perl

...

ok( ($errors && ($errors->[0] =~ /Journal file not found/i)), "some te
+xt 1" );
ok( ($errors && ($errors->[0] =~ /Journal file not found/i)), "some te
+xt 2" );

Use of uninitialized value $test in concatenation (.) or string at poc
+.pl line 11.
[[[]]] [[[some text 1]]]
Use of uninitialized value $test in concatenation (.) or string at poc
+.pl line 11.
[[[]]] [[[some text 2]]]