From a4ebd2193dcc488d789b7b0eadf91ab19c802e62 Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <Guillaume.Rousse@gmail.com>
Date: Tue, 10 Jan 2012 20:02:06 +0100
Subject: [PATCH] use UNIVERSAL::require, instead of require keyword

---
 .../Task/Inventory/Input/Generic/Screen.pm    | 26 ++++++++++++-------
 1 file changed, 16 insertions(+), 10 deletions(-)

diff --git a/lib/FusionInventory/Agent/Task/Inventory/Input/Generic/Screen.pm b/lib/FusionInventory/Agent/Task/Inventory/Input/Generic/Screen.pm
index e084653751..05a899ab61 100644
--- a/lib/FusionInventory/Agent/Task/Inventory/Input/Generic/Screen.pm
+++ b/lib/FusionInventory/Agent/Task/Inventory/Input/Generic/Screen.pm
@@ -73,20 +73,26 @@ sub _getScreensFromWindows {
 
     my $devices = {};
     my $Registry;
-    eval {
-        require FusionInventory::Agent::Tools::Win32;
-        require Win32::TieRegistry;
-        Win32::TieRegistry->import(
-            Delimiter   => '/',
-            ArrayValues => 0,
-            TiedRef     => \$Registry
-        );
-    };
+
+    FusionInventory::Agent::Tools::Win32->require();
+    if ($EVAL_ERROR) {
+        print
+            "Failed to load FusionInventory::Agent::Tools::Win32: $EVAL_ERROR";
+        return;
+    }
+
+    Win32::TieRegistry->require();
     if ($EVAL_ERROR) {
-        print "Failed to load Win32::OLE and Win32::TieRegistry\n";
+        print "Failed to load Win32::TieRegistry: $EVAL_ERROR";
         return;
     }
 
+    Win32::TieRegistry->import(
+        Delimiter   => '/',
+        ArrayValues => 0,
+        TiedRef     => \$Registry
+    );
+
     use constant wbemFlagReturnImmediately => 0x10;
     use constant wbemFlagForwardOnly => 0x20;