This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Typo in #8312 when manually applying a problematic patch fragment.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 4 Jan 2001 20:46:17 +0000 (20:46 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 4 Jan 2001 20:46:17 +0000 (20:46 +0000)
p4raw-id: //depot/perl@8319

ext/Storable/Storable.xs

index 366a301..9378001 100644 (file)
@@ -675,7 +675,7 @@ static char magicstr[] = "pst0";                    /* Used as a magic number */
 #define GETMARK(x) do {                                                        \
        if (!cxt->fio)                                                          \
                MBUF_GETC(x);                                                   \
-!      else if ((int) (x = PerlIO_getc(cxt->fio)) == EOF)      \
+       else if ((int) (x = PerlIO_getc(cxt->fio)) == EOF)      \
                return (SV *) 0;                                                \
 } while (0)