summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--file.c28
2 files changed, 15 insertions, 17 deletions
diff --git a/ChangeLog b/ChangeLog
index 098fe17a02..a210b8445f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Jan 13 01:24:17 2004 Yukihiro Matsumoto <matz@ruby-lang.org>
+
+ * file.c (test_wr): Rdoc fix. [ruby-core:02225]
+
Tue Jan 13 01:04:37 2004 Dave Thomas <dave@pragprog.com>
* lib/rdoc/ri/ri_paths.rb (RI::Paths): First attempt at
diff --git a/file.c b/file.c
index 94da99ae8f..b1a8131893 100644
--- a/file.c
+++ b/file.c
@@ -1015,6 +1015,14 @@ test_R(obj, fname)
return Qtrue;
}
+#ifndef S_IRUGO
+# define S_IRUGO (S_IRUSR | S_IRGRP | S_IROTH)
+#endif
+
+#ifndef S_IWUGO
+# define S_IWUGO (S_IWUSR | S_IWGRP | S_IWOTH)
+#endif
+
/*
* call-seq:
* File.world_readable?(file_name) => fixnum or nil
@@ -1029,14 +1037,6 @@ test_R(obj, fname)
* sprintf("%o", m) # => "644"
*/
-#ifndef S_IRUGO
-# define S_IRUGO (S_IRUSR | S_IRGRP | S_IROTH)
-#endif
-
-#ifndef S_IWUGO
-# define S_IWUGO (S_IWUSR | S_IWGRP | S_IWOTH)
-#endif
-
static VALUE
test_wr(obj, fname)
VALUE obj, fname;
@@ -1044,7 +1044,7 @@ test_wr(obj, fname)
#ifdef S_IROTH
struct stat st;
- if (rb_stat(fname, &st) < 0) return Qfalse;
+ if (rb_stat(fname, &st) < 0) return Qnil;
if ((st.st_mode & (S_IROTH)) == S_IROTH) {
#ifdef __BORLANDC__
return UINT2NUM((unsigned short)(st.st_mode &
@@ -1053,11 +1053,8 @@ test_wr(obj, fname)
return UINT2NUM(st.st_mode & (S_IRUGO|S_IWUGO|S_IXUGO));
#endif
}
- else {
- return Qnil;
- }
#endif
- return Qfalse;
+ return Qnil;
}
/*
@@ -1124,11 +1121,8 @@ test_ww(obj, fname)
return UINT2NUM(st.st_mode & (S_IRUGO|S_IWUGO|S_IXUGO));
#endif
}
- else {
- return Qnil;
- }
#endif
- return Qfalse;
+ return Qnil;
}
/*