1#!perl -w 2 3use strict; 4use warnings; 5use Test::More tests => 2; 6 7use XS::APItest; 8 9is join("", sort xs_cmp split//, '1415926535'), '1135559246', 10 'sort treats XS cmp routines as having implicit ($$)'; 11{ 12 my $w; 13 local $SIG{__WARN__} = sub { $w .= shift }; 14 () = sort xs_cmp_undef 1,2; 15 like $w, qr/^Use of uninitialized value in sort at /, 16 'warning about undef retval from cmp routine mentions sort'; 17} 18