eval{ $sv->FLAGS & SVf_POK && exists &{$curstash.'::'.$sv->PV} ; warning "Bare sub name '" . $sv->PV . "' interpreted as string"; }; warn join(", ", @_) if @_; if( $sv->FLAGS & SVf_POK && exists &{$curstash.'::'.$sv->PV} ) { warning "Bare sub name '" . $sv->PV . "' interpreted as string"; }