#!/usr/bin/perl
use strict;
use warnings;
my $errors = undef;
sub ok
{
my( $test, $name ) = @_;
print "[[[$test]]] [[[$name]]]\n";
};
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]" );
prints the following:
Use of uninitialized value in concatenation (.) or string at poc.pl li
+ne 14.
[[[ARRAY(0x137cd48)]]] [[[some text 1 ]]]
Use of uninitialized value in pattern match (m//) at poc.pl line 15.
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 ]]] [[[]]]
and by the way this code (with modified 'some text' strings)
#!/usr/bin/perl
use strict;
use warnings;
my $errors = undef;
sub ok
{
my( $test, $name ) = @_;
print "[[[$test]]] [[[$name]]]\n";
};
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" );
prints correct result:
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]]]
perl 5.10.1 under Linux