From 3cbc35143b4a2c42a5cfdf6da72fff9fb2781a19 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 6 Nov 2015 16:33:54 +0100
Subject: [PATCH] More fixes for serial port detection on Windows

---
 lib/Slic3r/GUI.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/Slic3r/GUI.pm b/lib/Slic3r/GUI.pm
index eff6efd38..782645f83 100644
--- a/lib/Slic3r/GUI.pm
+++ b/lib/Slic3r/GUI.pm
@@ -320,11 +320,11 @@ sub scan_serial_ports {
     
     if ($^O eq 'MSWin32') {
         # Windows
-        if (eval "use Win32::TieRegistry qw(KEY_READ); 1") {
-            my $ts = Win32::TieRegistry->new("HKEY_CURRENT_USER\\HARDWARE\\DEVICEMAP\\SERIALCOMM",
-                { Access => KEY_READ });
+        if (eval "use Win32::TieRegistry; 1") {
+            my $ts = Win32::TieRegistry->new("HKEY_LOCAL_MACHINE\\HARDWARE\\DEVICEMAP\\SERIALCOMM",
+                { Access => Win32::TieRegistry::KEY_READ() });
             $ts->Tie(\my %reg);
-            push @ports, sort values %$reg;
+            push @ports, sort values %reg;
         }
     } else {
         # UNIX and OS X