--- Console.pm.old	Mon Sep 19 12:49:36 2005
+++ Console.pm	Fri Mar 13 14:31:25 2009
@@ -135,6 +135,7 @@
     or   $param1 == constant("STD_ERROR_HANDLE",  0)))
     {
         $self->{'handle'} = _GetStdHandle($param1);
+        $self->{'handle_is_std'} = 1;
     }
     else {
         $param1 = constant("GENERIC_READ", 0)    | constant("GENERIC_WRITE", 0) unless $param1;
@@ -600,7 +601,7 @@
 sub DESTROY {
 #============
     my($self) = @_;
-    _CloseHandle($self->{'handle'});
+    _CloseHandle($self->{'handle'}) unless $self->{'handle_is_std'};
 }
 
 #######################################################################