Permalink
Browse files

this is perl 5. Also, iterate correct hash.

  • Loading branch information...
1 parent 2fceb75 commit 493505cc64d6c562c8f811c0fd1dafac14d1e059 @coke coke committed Oct 25, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 Configure.pl
View
@@ -59,8 +59,8 @@
for my $b (split /,\s*/, $options{backends}) {
$b = lc $b;
unless ($known_backends{$b}) {
- die "Unknown backend '$b'; Supported backends are: " ~
- join(", ", sort keys %backends) ~
+ die "Unknown backend '$b'; Supported backends are: " .
+ join(", ", sort keys %known_backends) .
"\n";
}
$backends{$b} = 1;

0 comments on commit 493505c

Please sign in to comment.