X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=author%2Fextract-inline-tests;fp=author%2Fextract-inline-tests;h=77fb2466502eb15fc2ed9881f3c797579bdd09ea;hb=53a4d826caec4b82f5b23e0bc0a4e8e2f44243b9;hp=8cdb4cce826416d9ab13428ef475076a666746b3;hpb=478b11a96fdfd6d0b2cc20214fb9e4645b6ef75c;p=gitmo%2FMoose.git

diff --git a/author/extract-inline-tests b/author/extract-inline-tests
index 8cdb4cc..77fb246 100755
--- a/author/extract-inline-tests
+++ b/author/extract-inline-tests
@@ -76,7 +76,7 @@ use warnings;
 
         my $base = $self->SUPER::process(@_);
 
-        $base =~ s/(\$\| = 1;)/use Test::Fatal;\n$1/;
+        $base =~ s/(\$\| = 1;)/use Test::Exception;\n$1/;
 
         return $base;
     }