]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Don't use 'Fatal' as a metasyntactic name
authorVincent Pit <vince@profvince.com>
Wed, 15 Jul 2009 16:43:42 +0000 (18:43 +0200)
committerVincent Pit <vince@profvince.com>
Wed, 15 Jul 2009 16:43:42 +0000 (18:43 +0200)
t/10-args.t

index bb44e978fb1e346c02e01bd9db1f01f7c171e884..683b57e870432b020b8a4ab47d97ddcae2bdeec2 100644 (file)
@@ -32,10 +32,10 @@ HERE
  eval <<'HERE';
   die qq{shouldn't even compile\n};
   no indirect ':fatal', hook => sub { die 'should not be called' };
-  my $x = new Fatal;
+  my $x = new Croaked;
   $x = new NotReached;
 HERE
- like $@, expect('Fatal'), 'croaks when :fatal is specified';
+ like $@, expect('Croaked'), 'croaks when :fatal is specified';
 }
 
 {