add test case for change#3298

p4raw-link: @3298 on //depot/perl: 93578b34124e8a3b976cd7f68c60e871e698c9d5

p4raw-id: //depot/perl@3299

1 files changed, 3 insertions, 3 deletions

diff --git a/sv.c b/sv.c
index 6068583d71..5772954c68 100644
--- 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));