fix Bareword wiringPiSetup not allowed while strict subs in use at

freichen · Sep 22, 2015 · 7c385f0 · 7c385f0
1 parent 1f2e9bd
commit 7c385f0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/WiringPi.pm b/WiringPi.pm
@@ -67,7 +67,7 @@ sub setup {
     my $class = ref($proto) || $proto;          #  MAGIC - DO NOT TRY TO UNDERSTAND THIS
     my $self = undef;
 
-    my $success = wiringPiSetup;
+    my $success = wiringPiSetupSys;
     if ($success >= 0) {
         $self = {"success" => $success};
         bless $self, $class;                    #  MAGIC - DO NOT TRY TO UNDERSTAND THIS