From ce3970fd0a2890b88485c2723e7af1633544c741 Mon Sep 17 00:00:00 2001
From: Frédéric Buclin <LpSolit@gmail.com>
Date: Sun, 23 Oct 2011 13:11:46 +0200
Subject: Bug 696541: Only load some external modules when needed, to improve
 the load time of pages r/a=mkanat

---
 Bugzilla/RNG.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'Bugzilla/RNG.pm')

diff --git a/Bugzilla/RNG.pm b/Bugzilla/RNG.pm
index caa63bae2..9ee6d49e5 100644
--- a/Bugzilla/RNG.pm
+++ b/Bugzilla/RNG.pm
@@ -24,7 +24,6 @@ use strict;
 use base qw(Exporter);
 use Bugzilla::Constants qw(ON_WINDOWS);
 
-use IO::File;
 use Math::Random::ISAAC;
 use if ON_WINDOWS, 'Win32::API';
 
@@ -156,14 +155,14 @@ sub _get_seed {
 sub _read_seed_from {
     my ($from) = @_;
 
-    my $fh = IO::File->new($from, "r") or die "$from: $!";
+    open(my $fh, '<', $from) or die "$from: $!";
     my $buffer;
-    $fh->read($buffer, SEED_SIZE);
+    read($fh, $buffer, SEED_SIZE);
     if (length($buffer) < SEED_SIZE) {
         die "Could not read enough seed bytes from $from, got only " 
             . length($buffer);
     }
-    $fh->close;
+    close $fh;
     return $buffer;
 }
 
-- 
cgit v1.2.3-24-g4f1b