make visit() only react to SCALAR refs

[yanick]

As the test was, it was assuming that any ref returned by the
callback was a SCALAR ref, which can trip code like

    # silly, but capture the spirit of the oopsie
    $path->visit(sub{
       $something = [ @$something, $_ ];
    })

[dagolden]

Cherry picked to master. Thanks!