Преглед изворни кода

Fix -cchannels to be as it were pre 0.67

Torbjorn Svensson пре 20 година
родитељ
комит
19d9c51c7a
2 измењених фајлова са 2 додато и 1 уклоњено
  1. 1 0
      docs/Changelog
  2. 1 1
      modules/Pisg.pm

+ 1 - 0
docs/Changelog

@@ -19,6 +19,7 @@ pisg (0.69) - ??
      + Use nested HTML comments in CSS to cheat XML error having "<set ..>"
        in the CSS file.
      + Fix title tooltip (SF #1492153).
+     + Fix -cchannels option (SF #1369457).
    * Features:
      + Add "+CVS" to versionstring if ./CVS is found
    Language Updates:

+ 1 - 1
modules/Pisg.pm

@@ -551,7 +551,7 @@ sub parse_channels
             my $hits = 0;
             foreach ( @{ $self->{chans} }) {
                 my $chan = (keys %{ $_ })[0];
-                if ($channel =~ m/^$chan$/i) {
+                if (lc($channel) eq lc($chan)) {
                     push @chanlist, $_;
                     $hits++;
                 }