--- JSON-XS/t/19_incr.t	2008/06/22 12:05:49	1.4
+++ JSON-XS/t/19_incr.t	2013/05/23 09:31:32	1.5
@@ -10,6 +10,9 @@
 sub splitter {
    my ($coder, $text) = @_;
 
+   # work around hash randomisation bug introduced in 5.18
+   $coder->canonical;
+
    for (0 .. length $text) {
       my $a = substr $text, 0, $_;
       my $b = substr $text, $_;