diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-22 23:59:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-22 23:59:15 +0000 |
| commit | 793db0cbf2a1f8691eefd9130892b47143e8795f (patch) | |
| tree | e26e57d57ebbefb8d01ac6a846e7d63d95b2c711 /ext/Storable | |
| parent | 4a52322c1ec059cad07da381a8d64d764b79bdad (diff) | |
| download | perl-793db0cbf2a1f8691eefd9130892b47143e8795f.tar.gz | |
Fixes for signedness warnings noticed by VMSperlers.
p4raw-id: //depot/perl@7824
Diffstat (limited to 'ext/Storable')
| -rw-r--r-- | ext/Storable/Storable.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index f7c810a5f0..a574c33976 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -670,7 +670,7 @@ static char magicstr[] = "pst0"; /* Used as a magic number */ #define GETMARK(x) do { \ if (!cxt->fio) \ MBUF_GETC(x); \ - else if ((x = PerlIO_getc(cxt->fio)) == EOF) \ + else if ((int)(x = PerlIO_getc(cxt->fio)) == EOF) \ return (SV *) 0; \ } while (0) |