From e4052c0bde4ecb99666114bc7bf93ccaaac7dc75 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 1 Dec 2017 19:55:39 +0100
Subject: [PATCH] open correct pins/ file for beginning of model string

---
 gpio.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gpio.pl b/gpio.pl
index 9b02c48..ddede77 100755
--- a/gpio.pl
+++ b/gpio.pl
@@ -79,7 +79,7 @@ while(<DATA>) {
 
 if ( ! $opt_pins && ! $pins ) {
 	my $glob = $model;
-	my $glob =~ s/^(\w+).*$/$1/;
+	$glob =~ s/^(\w+).*$/$1/;
 	my @pins = glob "pins/${glob}*";
 	warn "# possible pins: ",dump( \@pins );
 	$opt_pins = $pins[0];
-- 
2.20.1