[svn:parrot] r11112 - trunk/src/classes

[particle]

Author: particle
Date: Wed Jan 11 18:51:42 2006
New Revision: 11112

Modified:
   trunk/src/classes/file.pmc
Log:
PMC: file.pmc: short-circuit "is_link" method for win32 (it's never a link)
~ compiles on windows again

Modified: trunk/src/classes/file.pmc
==============================================================================
--- trunk/src/classes/file.pmc  (original)
+++ trunk/src/classes/file.pmc  Wed Jan 11 18:51:42 2006
@@ -114,6 +114,9 @@ Returns a true value (1) if the supplied
 */
 
     METHOD INTVAL is_link(STRING *path) {
+#ifdef WIN32
+    return 0;
+#else
         struct stat info;
         char *cpath = string_to_cstring(interpreter, path);
         int error = stat(cpath, &info);
@@ -127,6 +130,7 @@ Returns a true value (1) if the supplied
         } else {
             return 0;
         }
+#endif
     }
 
 }