From 76660309905ae286761f1544ecab1d8d11fe933f Mon Sep 17 00:00:00 2001
From: swaggboi <swaggboi@slackware.uk>
Date: Fri, 5 Mar 2021 22:31:48 -0500
Subject: [PATCH] Minor clean-up

---
 www-swagg.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/www-swagg.pl b/www-swagg.pl
index 6c2aadd..bc7f76e 100755
--- a/www-swagg.pl
+++ b/www-swagg.pl
@@ -55,7 +55,7 @@ get '/ula6' => sub {
         $halftwo  = "fe"       . $fields[3] . $fields[4] . $fields[5];
         $binfield = sprintf "%b", hex $fields[0];
         $decfield = sprintf "%d", hex $fields[0];
-        $decfield = ($binfield =~ m/1[01]$/) ? $decfield - 2 : $decfield + 2;
+        $decfield = ($binfield =~ /1[01]$/) ? $decfield - 2 : $decfield + 2;
         $binfield = sprintf "%b", int $decfield;
         $hexfield = sprintf "%x", int $decfield;
         $halfone  = $hexfield . $fields[1] . $fields[2] . "ff";
@@ -66,7 +66,7 @@ get '/ula6' => sub {
 
         # Cat with the time
         $digesty   = sha1_hex($epoch . $fulleui);
-        ($uniqueid = "fd" . substr $digesty, -10) =~ s/(.{1,4})/$1:/gs;
+        ($uniqueid = "fd" . substr $digesty, -10) =~ s/(.{1,4})/$1:/g;
 
         # Set the ULA
         $ula6 = $uniqueid . ':/48';