diff options
| author | Douglas Lankshear <doug@lankshear.net> | 1998-03-05 02:23:04 -0800 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-05 20:02:09 +0000 |
| commit | fe9f1ed50ae7ad31787549184f98f0a71eda0191 (patch) | |
| tree | 1d6c576c1b924f150ebc056bab558c22ce45be0f /win32/runperl.c | |
| parent | 26b3385cfa7a4193b7fdcd1e1e62a8894e9d9198 (diff) | |
| download | perl-fe9f1ed50ae7ad31787549184f98f0a71eda0191.tar.gz | |
[asperl] added AS patch#11
Message-Id: <01BD4820.AFC70110.dougl@ActiveState.com>
This patch fixes a bug I introduced removing duplicate code.
-- Doug
p4raw-id: //depot/asperl@788
Diffstat (limited to 'win32/runperl.c')
| -rw-r--r-- | win32/runperl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win32/runperl.c b/win32/runperl.c index ec65e2cc07..cecdfeb9ff 100644 --- a/win32/runperl.c +++ b/win32/runperl.c @@ -762,14 +762,14 @@ public: }; virtual SSize_t Read(PerlIO* pf, void *buffer, Size_t size, int &err) { - SSize_t i = win32_fread(buffer, size, 1, (FILE*)pf); + SSize_t i = win32_fread(buffer, 1, size, (FILE*)pf); if(errno) err = errno; return i; }; virtual SSize_t Write(PerlIO* pf, const void *buffer, Size_t size, int &err) { - SSize_t i = win32_fwrite(buffer, size, 1, (FILE*)pf); + SSize_t i = win32_fwrite(buffer, 1, size, (FILE*)pf); if(errno) err = errno; return i; |