diff --git a/test/old/testdir/test_perl.vim b/test/old/testdir/test_perl.vim
index 2d7f8fdc10..275ec4c483 100644
--- a/test/old/testdir/test_perl.vim
+++ b/test/old/testdir/test_perl.vim
@@ -156,13 +156,13 @@ func Test_perleval()
   call assert_equal(0, perleval('0'))
   call assert_equal(2, perleval('2'))
   call assert_equal(-2, perleval('-2'))
-  if has('float')
-    call assert_equal(2.5, perleval('2.5'))
-  else
-    call assert_equal(2, perleval('2.5'))
-  end
+  call assert_equal(2.5, perleval('2.5'))
 
-  " sandbox call assert_equal(2, perleval('2'))
+  try
+    sandbox call perleval('2')
+    call assert_report('perleval did not fail in the sandbox')
+  catch /^Vim\%((\S\+)\)\=:E48:/
+  endtry
 
   call assert_equal('abc', perleval('"abc"'))
   " call assert_equal("abc\ndef", perleval('"abc\0def"'))