From 816d8ae48511f6ed29e70b711dc302fc74c8eb08 Mon Sep 17 00:00:00 2001
From: hackademix
Date: Sat, 13 Oct 2018 10:34:18 +0200
Subject: [Build] Fixes for cygwin-related cross-platform compatibility quirks.

---
 html5_events/html5_events.pl | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'html5_events')

diff --git a/html5_events/html5_events.pl b/html5_events/html5_events.pl
index 8d2b873..0406ff1 100644
--- a/html5_events/html5_events.pl
+++ b/html5_events/html5_events.pl
@@ -3,7 +3,7 @@ use strict;
 
 require LWP::UserAgent;
 use LWP::Simple;
-use RegExp::List;
+use Regexp::List;
 use File::stat;
 use File::Basename;
 use List::MoreUtils qw(uniq);
@@ -17,7 +17,7 @@ sub create_re
 {
   my $cache = "$HERE/html5_events.re";
   my $archive = "$HERE/html5_events_archive.txt";
-  
+
   my $sb = stat($cache);
 
   if ($sb && time() - $sb->mtime < 86400)
@@ -27,7 +27,7 @@ sub create_re
     close IN;
     return $content[0];
   }
-  
+
   sub fetch_url
   {
     my $url = shift(@_);
@@ -53,30 +53,30 @@ sub create_re
   $content = join("\n", grep(/^\s*Atom\("on\w+"/, split(/[\n\r]/, $content)));
 
   $content =~ s/.*"(on\w+)".*/$1 /g;
-  
+
   open IN, "<$archive";
   my @archived = <IN>;
   close IN;
 
   $content .= join("\n", @archived);
-  
+
   $content =~ s/\s+/\n/g;
   $content =~ s/^\s+|\s+$//g;
-  
+
   my @all_events = grep(!/^only$/, uniq(split("\n", $content)));
-  
+
   open (OUT, ">$archive");
   print OUT join("\n", @all_events);
   close OUT;
-  
+
   my $l  = Regexp::List->new;
   my $re = $l->list2re(@all_events);
   $re =~ s/\(\?[-^]\w+:(.*)\)/$1/;
-  
+
   open (OUT, ">$cache");
   print OUT $re;
   close OUT;
-  
+
   $re;
 }
 
-- 
cgit v1.2.3