Setting $/ breaks perl itself.

Net::DNS reads /etc/resolv.conf using:

       local $_;
        while (<$filehandle>) {
                s/[;#].*$//;                                    # strip
comments

                /^nameserver/ && do {
       ...
       }

Not only does <$filehandle> return the entire file as it enters the loop,
but the $ in the regex also fails to work as advertised.

Reply via email to