[patch] ext/b/t/lint.t fails on win32

Message-ID: <9b18b3110512231106k7ad395bfp8a0c05cd0f87fc61@mail.gmail.com>

p4raw-id: //depot/perl@26501

diff --git a/ext/B/t/lint.t b/ext/B/t/lint.t
index 621649e..d5ee215 100644 (file)
--- a/ext/B/t/lint.t
+++ b/ext/B/t/lint.t
@@ -50,7 +50,7 @@ RESULT
 {
     my $res = runperl(
         switches => [ "-MB::Lint" ],
-        prog => "BEGIN{B::Lint->register_plugin(X=>[q[x]])};use O(qw[Lint x]);sub X::match{warn q[X ok.\n]};dummy()",
+        prog => 'BEGIN{B::Lint->register_plugin(X=>[q[x]])};use O(qw[Lint x]);sub X::match{warn qq[X ok.\n]};dummy()',
        stderr => 1,
     );
     like( $res, qr/X ok\./, 'Lint plugin' );