support perls that don't support //

Sadly my default perl doesn't support defined-or //, so here's
my patch.