Skip to content

Commit 54e3c10

Browse files
authored
Merge pull request #66 from fglock/fix/filehandle-t
Fix filehandle.t: Add DESTROY method to IO::Handle
2 parents aaa331e + 5181795 commit 54e3c10

File tree

1 file changed

+7
-0
lines changed

1 file changed

+7
-0
lines changed

src/main/perl/lib/IO/Handle.pm

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -449,6 +449,13 @@ sub untaint {
449449
return -1;
450450
}
451451

452+
# DESTROY method - called when handle is being destroyed
453+
# In PerlOnJava, this is called by JVM garbage collector
454+
sub DESTROY {
455+
# Empty DESTROY is fine - the actual cleanup happens in Java
456+
# This just needs to exist so FileHandle can import it
457+
}
458+
452459
1;
453460

454461
__END__

0 commit comments

Comments
 (0)