Not a straight solution, but a simple workaround:

ok( !system("xterm -e vi $fname") ,    'vi exit OK');
[download]