From 9507fb91f099ba9a9b1fb1330967a3de03288373 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Sun, 4 Jan 2015 23:53:59 +0100
Subject: [PATCH] Serial ports detection on Win32

---
 Build.PL          |  3 +++
 lib/Slic3r/GUI.pm | 14 ++++++++++----
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/Build.PL b/Build.PL
index 80007abaa..c376369b4 100644
--- a/Build.PL
+++ b/Build.PL
@@ -46,6 +46,9 @@ if ($gui) {
     Wx::GLCanvas                    0
     OpenGL                          0
     );
+    if ($^O eq 'MSWin32') {
+        $recommends{Win32::TieRegistry} = 0;
+    }
 } elsif ($xs_only) {
     %prereqs = %recommends = ();
 }
diff --git a/lib/Slic3r/GUI.pm b/lib/Slic3r/GUI.pm
index bb32281dc..246c7edb7 100644
--- a/lib/Slic3r/GUI.pm
+++ b/lib/Slic3r/GUI.pm
@@ -300,10 +300,16 @@ sub scan_serial_ports {
     
     my @ports = ();
     
-    # TODO: Windows ports
-    
-    # UNIX and OS X
-    push @ports, glob '/dev/{ttyUSB,ttyACM,tty.,cu.,rfcomm}*';
+    if ($^O eq 'MSWin32') {
+        # Windows
+        my %reg;
+        if (eval "use Win32::TieRegistry (TiedHash => \\%reg); 1") {
+            push @ports, sort values %{$reg{"HKEY_CURRENT_USER\\HARDWARE\\DEVICEMAP\\SERIALCOMM"}};
+        }
+    } else {
+        # UNIX and OS X
+        push @ports, glob '/dev/{ttyUSB,ttyACM,tty.,cu.,rfcomm}*';
+    }
     
     return @ports;
 }