1 files changed, 3 insertions, 1 deletions
diff --git a/cpan/Unicode-Collate/mkheader b/cpan/Unicode-Collate/mkheader
index 8d4076f183..b24d511771 100644
--- a/cpan/Unicode-Collate/mkheader
+++ b/cpan/Unicode-Collate/mkheader
@@ -140,7 +140,8 @@ foreach my $tbl (@tripletable) {
     my $init = $tbl->{init};
 
     open my $fh_h, ">$file" or croak "$PACKAGE: $file can't be made";
-    binmode $fh_h; select $fh_h;
+    binmode $fh_h;
+    my $old_fh = select $fh_h;
     my %val;
 
     print << 'EOF';
@@ -195,6 +196,7 @@ EOF
     }
     print "};\n\n";
     close $fh_h;
+    select $old_fh;
 }
 
 1;