XS::APItest, svpeek.t: Test the correct thing blead
authorBrian Fraser <fraserbn@gmail.com>
Thu, 30 Oct 2014 15:45:30 +0000 (16:45 +0100)
committerBrian Fraser <fraserbn@gmail.com>
Fri, 31 Oct 2014 12:40:30 +0000 (13:40 +0100)
ext/XS-APItest/APItest.pm
ext/XS-APItest/t/svpeek.t

index bd4a7a8..c9610a7 100644 (file)
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Carp;
 
-our $VERSION = '0.67';
+our $VERSION = '0.68';
 
 require XSLoader;
 
index 92c03a1..df914fc 100644 (file)
@@ -27,7 +27,8 @@ if ($^O eq 'VMS') {
 }
   is (DPeek ($|),    'PVMG(1)',                        '$|');
 
-  "abc" =~ m/(b)/;     # Don't know why these magic vars have this content
+  "abc" =~ m/b/;       # Don't know why these magic vars have this content
+  () = $1 || '';
   is (DPeek ($1),    'PVMG()',                 ' $1');
   is (DPeek ($`),    'PVMG()',                 ' $`');
   is (DPeek ($&),    'PVMG()',                 ' $&');