Fix an off-by-one error that's already been accepted upstream

diff --git a/gnu/usr.bin/perl/x2p/str.c b/gnu/usr.bin/perl/x2p/str.c
index 86127a0..e12e5e9 100644 (file)
--- a/gnu/usr.bin/perl/x2p/str.c
+++ b/gnu/usr.bin/perl/x2p/str.c
@@ -200,7 +200,7 @@ str_gets(STR *str, FILE *fp)
     for (;;) {
        while (--cnt >= 0) {
            if ((*bp++ = *ptr++) == newline) {
-               if (bp <= str->str_ptr || bp[-2] != '\\')
+               if (bp <= str->str_ptr + 1 || bp[-2] != '\\')
                    goto thats_all_folks;
                else {
                    line++;