--- wireless.pm	2009-07-08 13:03:09.000000000 +0200
+++ wireless.pm.old	2009-07-08 13:02:40.000000000 +0200
@@ -957,6 +957,7 @@
     my $buf;
     my @conf = @$conf;
     my $network;
+    $buf .= "ctrl_interface=/var/run/wpa_supplicant";
     foreach (cat_($::prefix . $wpa_supplicant_conf)) {
         if ($network) {
             #- in a "network = {}" block