From 86833594ff917d578aa24a4536995fa6573300a6 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 19 Feb 2001 09:15:27 +0000
Subject: * string.c (rb_str_substr): "a"[1,2] should return ""; need   rubicon
 upgrade.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1204 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 error.c | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'error.c')

diff --git a/error.c b/error.c
index 03bc93f0e0..7411e957a8 100644
--- a/error.c
+++ b/error.c
@@ -701,6 +701,32 @@ rb_sys_fail(mesg)
     rb_exc_raise(ee);
 }
 
+void
+#ifdef HAVE_STDARG_PROTOTYPES
+rb_sys_warning(const char *fmt, ...)
+#else
+rb_sys_warning(fmt, va_alist)
+     const char *fmt;
+     va_dcl
+#endif
+{
+     char buf[BUFSIZ];
+     va_list args;
+     int errno_save;
+     
+     errno_save = errno;
+
+     if (!RTEST(ruby_verbose)) return;
+
+     snprintf(buf, BUFSIZ, "warning: %s", fmt);
+     snprintf(buf+strlen(buf), BUFSIZ-strlen(buf), ": %s", strerror(errno_save));
+     
+     va_init_list(args, fmt);
+     warn_print(buf, args);
+     va_end(args);
+     errno = errno_save;
+}
+
 void
 rb_load_fail(path)
     char *path;
-- 
cgit v1.2.3