X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=recctrl%2Fperlread.c;h=7cdc5c01e1473253066548ba68e6a23cb732ff17;hb=fcd23b68a84ac461cbea22271f91b7989a767201;hp=f21d0c3ec222438c78851b09be79dde0a014ceef;hpb=dc3c04329444e64a53fb799adb40bbb6370b3f1b;p=idzebra-moved-to-github.git

diff --git a/recctrl/perlread.c b/recctrl/perlread.c
index f21d0c3..7cdc5c0 100644
--- a/recctrl/perlread.c
+++ b/recctrl/perlread.c
@@ -1,4 +1,4 @@
-/* $Id: perlread.c,v 1.7 2003-02-28 16:20:10 pop Exp $
+/* $Id: perlread.c,v 1.8 2003-03-05 16:43:48 adam Exp $
    Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002
    Index Data Aps
 
@@ -190,7 +190,7 @@ int grs_perl_readline(struct perl_context *context) {
 char grs_perl_getc(struct perl_context *context) {
   int r;
   char *p;
-  if (r = (*context->readf)(context->fh,p,1)) {
+  if ((r = (*context->readf)(context->fh,p,1))) {
     return (*p);
   } else {
     return (0);