Merge pull request #160 from nanis/nanis-fix-t-rt-84767

t\rt-84767.t fails with MSVC built perl due to dir separator

t/rt-84767.t

@@ -18,7 +18,7 @@ open( my $fh,"<","$Script" )
 while ( <$fh> ) {
     eval { die("error") if /error/; };
     $@ && do {
-        like( $@,qr!at t/$Script line 19!,'die with input line number' );
+        like( $@,qr!at \Q$0\E line 19!,'die with input line number' );
         last;
     }
 }