Explain the \p{} and \P{} error message better and

[p5sagit/p5-mst-13.2.git] / pod / perlfaq8.pod

diff --git a/pod/perlfaq8.pod b/pod/perlfaq8.pod
index d806ed6..1df3b6a 100644 (file)
--- a/pod/perlfaq8.pod
+++ b/pod/perlfaq8.pod
@@ -321,7 +321,7 @@ go bump in the night, finally came up with this:
        # been opened on a pipe...
        system("/bin/stty $stty");
        $_ = <MODEM_IN>;
-       chop;
+       chomp;
        if ( !m/^Connected/ ) {
            print STDERR "$0: cu printed `$_' instead of `Connected'\n";
        }