diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/autodie/t/exception_class.t')
| -rwxr-xr-x | gnu/usr.bin/perl/cpan/autodie/t/exception_class.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/cpan/autodie/t/exception_class.t b/gnu/usr.bin/perl/cpan/autodie/t/exception_class.t index 127893bcbf7..b15d110f3a1 100755 --- a/gnu/usr.bin/perl/cpan/autodie/t/exception_class.t +++ b/gnu/usr.bin/perl/cpan/autodie/t/exception_class.t @@ -43,7 +43,7 @@ like($@, qr/Bad exception class/, '$@ should contain bad exception class msg'); ### Tests with well-formed exception class (in Klingon) my $open_success3 = eval { - use pujHa'ghach qw(open); #' <-- this makes my editor happy + use pujHa::ghach qw(open); open(my $fh, '<', NO_SUCH_FILE); 1; }; @@ -52,6 +52,6 @@ is($open_success3,undef,"Open should fail"); isnt("$@","",'$@ should not be empty'); -isa_ok($@, "pujHa'ghach::Dotlh", '$@ should be a Klingon exception'); +isa_ok($@, "pujHa::ghach::Dotlh", '$@ should be a Klingon exception'); like($@, qr/lujqu'/, '$@ should contain Klingon text'); |