X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/2e8c1e3cc39cc1c6e4b858242d2a3a39481b9640..c4ca0bd3e94a7978772dadaa3b941ecc84741407:/keyboard/altgr/symbolics.eng.inc.pl

diff --git a/keyboard/altgr/symbolics.eng.inc.pl b/keyboard/altgr/symbolics.eng.inc.pl
index b0c3a1e..94407f9 100644
--- a/keyboard/altgr/symbolics.eng.inc.pl
+++ b/keyboard/altgr/symbolics.eng.inc.pl
@@ -107,11 +107,11 @@ my %rows = (
 );
 
 my $groups = kbchars(\%rows);
-$groups->{flag}->{g5} = [greek =>
+$groups->{flag}{g5} = [greek =>
 	"a different greek letter not corresponding with latin transcription"
 ];
 while (my ($key, $chr) = each %rows) {
-	$groups->{def}->{''}->{$key} =~ s/g6/g5/ if $chr =~ /\A\p{Greek}/;
+	$groups->{def}{''}{$key}[0] =~ s/g6/g5/ if $chr =~ /\A\p{Greek}/;
 }
 
 +{