Quickier thread-specific data on OS/2

[p5sagit/p5-mst-13.2.git] / sv.c

diff --git a/sv.c b/sv.c
index 6068583..5772954 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2737,9 +2737,9 @@ sv_clear(register SV *sv)
        {
          io_close((IO*)sv);
        }
-       if (IoDIRP((IO*)sv)) {
-           PerlDir_close(IoDIRP((IO*)sv));
-           IoDIRP((IO*)sv) = 0;
+       if (IoDIRP(sv)) {
+           PerlDir_close(IoDIRP(sv));
+           IoDIRP(sv) = 0;
        }
        Safefree(IoTOP_NAME(sv));
        Safefree(IoFMT_NAME(sv));