Import of old SSLeay release: SSLeay 0.9.1b (unreleased)

[openssl.git] / perl / ssl.xs

diff --git a/perl/ssl.xs b/perl/ssl.xs
index 6777cf7ada8d019a50cee7f0777ce5cf8e6b7ecd..05834797e38a458ad418d2a392df2b8aca486eb1 100644 (file)
--- a/perl/ssl.xs
+++ b/perl/ssl.xs
@@ -241,7 +241,7 @@ p5_SSL_sysread(ssl,in,num, ...)
                        if (offset < 0)
                                {
                                if (-offset > olen)
-                                       croad("Offset outside string");
+                                       croak("Offset outside string");
                                offset+=olen;
                                }
                        }