From: Yves Orton <demerphq@gmail.com>
Date: Fri, 23 Dec 2005 20:06:52 +0000 (+0100)
Subject: [patch] ext/b/t/lint.t fails on win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce5918c5d3196bf3677bfb7036754bffc30f8e0e;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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' );