X-Git-Url: https://ruderich.org/simon/gitweb/?p=config%2Fdotfiles.git;a=blobdiff_plain;f=term2gui.pl;h=6da84f48ec87297c8865cd886c07504c257af635;hp=c019326f8448117d49b07df7d04fc7ebc82ad0fb;hb=89ece2527c215986891e661debb064d7dd248005;hpb=6b56275940807de94d871f168becdb4fc44516ef

diff --git a/term2gui.pl b/term2gui.pl
index c019326..6da84f4 100755
--- a/term2gui.pl
+++ b/term2gui.pl
@@ -281,10 +281,10 @@ sub xterm2rgb {
 }
 
 
-while (my $line = <>) {
+while (<>)) {
     # Only handle lines with highlight commands.
-    if ($line =~ /^\s*\bhi(?:ghlight)?\b/) {
-        foreach my $setting ($line =~ m/\bcterm(?:fg|bg)?=\S+/g) {
+    if (/^\s*\bhi(?:ghlight)?\b/) {
+        foreach my $setting (m/\bcterm(?:fg|bg)?=\S+/g) {
             my ($name, $value) = split /=/, $setting;
 
             my $gui_name = $name;
@@ -300,14 +300,14 @@ while (my $line = <>) {
             }
 
             # Update existing value.
-            if ($line =~ /\b\Q$gui_name\E=/) {
-                $line =~ s/\Q$gui_name\E=\S+/$gui_name=$new_value/;
+            if (/\b\Q$gui_name\E=/) {
+                s/\Q$gui_name\E=\S+/$gui_name=$new_value/;
             # Append at the end of the line.
             } else {
-                $line =~ s/\n/ $gui_name=$new_value\n/;
+                s/\n/ $gui_name=$new_value\n/;
             }
         }
     }
 
-    print $line;
+    print;
 }