if (-r $args{file}) {
$self->generate($args{file});
} else {
- die "Can't open tags file: $!\n";
+ die "Can't open tags file '", $args{file}, "': $!\n";
}
}elsif ($args{str}) {
$self->generate($args{str},'scalar');
# baseline object creation
eval { my $stl = Equinox::Migration::SimpleTagList->new( file => "thefileisalie.txt" ) };
-is ($@ =~ /^Can't open tags file:/, 1, 'cannot open that');
+is ($@ =~ /^Can't open tags file 'thefileisalie\.txt':/, 1, 'cannot open that');
my $stl = Equinox::Migration::SimpleTagList->new();
is(ref $stl, "Equinox::Migration::SimpleTagList", "self is self");