Fix perlbrew.fish bug

`__source_init()` from `perlbrew.fish` has hit the `eval ()` issue; replaced with pipe to `. -`