fix wrong t/50reentrant_goto_sigsegv.t

wrong test count.
wrong name check. install_accessor_with_shim installs a package prefix.

Author: Reini Urban

t/50reentrant_goto_sigsegv.t

@@ -6,7 +6,7 @@ use strict;
 use warnings;
 
 use Class::XSAccessor;
-use Test::More tests => 14;
+use Test::More tests => 28;
 
 my $shim_calls;
 
@@ -33,7 +33,7 @@ sub install_accessor_with_shim {
 }
 
 TODO: {
-    todo_skip 'bug in perls < 5.8.9', 14 if $] < 5.008009;
+    todo_skip 'bug in perls < 5.8.9', 28 if $] < 5.008009;
 
     for my $name (qw/bar baz/) {
       for my $pass (1..2) {
@@ -48,11 +48,11 @@ TODO: {
         is ($shim_calls, 1, "Shim called ($name pass $pass)" );
 
         eval { $obj->$name ('ack!') };
-        ok ($@ =~ /Usage\: $name\(self\)/, "Exception from R/O accessor thrown ($name pass $pass)" );
+        ok ($@ =~ /Usage\: Foo::$name\(self\)/, "Exception from R/O accessor thrown ($name pass $pass) $@" );
         is ($shim_calls, 2, "Shim called anyway ($name pass $pass)" );
 
         eval { $obj->$name ('ick!') };
-        ok ($@ =~ /Usage\: $name\(self\)/, "Exception from R/O accessor thrown once again ($name pass $pass)" );
+        ok ($@ =~ /Usage\: Foo::$name\(self\)/, "Exception from R/O accessor thrown once again ($name pass $pass) $@" );
         is ($shim_calls, 3, "Shim called again ($name pass $pass)" );
       }
     }