Fix issue #22

2013-09-30 16:03:36 +00:00 · 2013-09-30 16:03:36 +00:00 · 4437b0c674
parent d87fc1f0c8
commit 4437b0c674
1 changed files with 1 additions and 1 deletions
--- a/palette.pl
+++ b/palette.pl
@ -24,7 +24,7 @@ while (<F>) {
        elsif ($_ =~ m/^\s*\w*\*(background|foreground|color\d)\s*:\s*([\w\d#]+)/) {
            my ($name, $value) = (uc $1, $2); 
            # Check if it's a color
-            if (substr($value, 1) eq '#') {
+            if (substr($value, 0, 1) eq '#') {
                $value = hex(substr($value, 1));
            } else {
                $value = $vars{"$value"};