Steps to reproduce:

1. open info with C-h i. Make sure you're at the directory (press d if needed)
2. Invoke (cperl-info-on-command "shift")
3. Get error search-failed "^-X[ ]"
4. If you look at the open buffers, you'll see:

• *info* (perl) perlfunc but not at the right function, and
• *info-perl* (dir) Top

Somehow the switcheroo in cperl-info-buffer doesn't get it right