From 84fcc7fd663fd554de37bdf88d3bd3c632fdec4c Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 24 Aug 2019 19:29:14 -0700
Subject: [PATCH] FuncCommand: replace tabs with spaces

---
 PBot/FuncCommand.pm | 42 +++++++++++++++++++++---------------------
 1 file changed, 21 insertions(+), 21 deletions(-)

diff --git a/PBot/FuncCommand.pm b/PBot/FuncCommand.pm
index 81744fb2..4606a7ff 100644
--- a/PBot/FuncCommand.pm
+++ b/PBot/FuncCommand.pm
@@ -132,29 +132,29 @@ sub func_sed {
   my $self = shift;
   my $text = "@_";
 
-	if ($text =~ /^s(.)(.*?)(?<!\\)\1(.*?)(?<!\\)\1(\S*)\s+(.*)/p) {
-		my ($a, $r, $g, $m, $t) = ($5,"'\"$3\"'", index($4,"g") != -1, $4, $2);
+  if ($text =~ /^s(.)(.*?)(?<!\\)\1(.*?)(?<!\\)\1(\S*)\s+(.*)/p) {
+    my ($a, $r, $g, $m, $t) = ($5,"'\"$3\"'", index($4,"g") != -1, $4, $2);
 
-		if ($m=~/P/) {
-			$r =~ s/^'"(.*)"'$/$1/;
-			$m=~s/P//g;
+    if ($m=~/P/) {
+      $r =~ s/^'"(.*)"'$/$1/;
+      $m=~s/P//g;
 
-			if($g) {
-				$a =~ s|(?$m)($t)|$1=~/^[A-Z][^A-Z]/?ucfirst$r:($1=~/^[A-Z]+$/?uc$r:$r)|gie;
-			} else {
-				$a =~ s|(?$m)($t)|$1=~/^[A-Z][^A-Z]/?ucfirst$r:($1=~/^[A-Z]+$/?uc$r:$r)|ie;
-			}
-		} else {
-			if ($g) {
-				$a =~ s/(?$m)$t/$r/geee;
-			} else {
-				$a=~s/(?$m)$t/$r/eee;
-			}
-		}
-		return $a;
-	} else {
-		return "sed: syntax error";
-	}
+      if($g) {
+        $a =~ s|(?$m)($t)|$1=~/^[A-Z][^A-Z]/?ucfirst$r:($1=~/^[A-Z]+$/?uc$r:$r)|gie;
+      } else {
+        $a =~ s|(?$m)($t)|$1=~/^[A-Z][^A-Z]/?ucfirst$r:($1=~/^[A-Z]+$/?uc$r:$r)|ie;
+      }
+    } else {
+      if ($g) {
+        $a =~ s/(?$m)$t/$r/geee;
+      } else {
+        $a=~s/(?$m)$t/$r/eee;
+      }
+    }
+    return $a;
+  } else {
+    return "sed: syntax error";
+  }
 }
 use warnings;