From 19cd4867730b8c76e680e0424da12fb247cab325 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Thu, 28 Jan 2021 14:40:53 +0100
Subject: Renamed directory.

---
 challenge-004/abigail/README        |  1 -
 challenge-004/abigail/perl/ch-1.pl  |  1 +
 challenge-004/abigail/perl/ch-2.pl  | 26 ++++++++++++++++++++++++++
 challenge-004/abigail/perl5/ch-1.pl |  1 -
 challenge-004/abigail/perl5/ch-2.pl | 26 --------------------------
 5 files changed, 27 insertions(+), 28 deletions(-)
 delete mode 100644 challenge-004/abigail/README
 create mode 100644 challenge-004/abigail/perl/ch-1.pl
 create mode 100644 challenge-004/abigail/perl/ch-2.pl
 delete mode 100644 challenge-004/abigail/perl5/ch-1.pl
 delete mode 100644 challenge-004/abigail/perl5/ch-2.pl

diff --git a/challenge-004/abigail/README b/challenge-004/abigail/README
deleted file mode 100644
index 5f0d73ae16..0000000000
--- a/challenge-004/abigail/README
+++ /dev/null
@@ -1 +0,0 @@
-Solution by Abigail
diff --git a/challenge-004/abigail/perl/ch-1.pl b/challenge-004/abigail/perl/ch-1.pl
new file mode 100644
index 0000000000..b6b556b801
--- /dev/null
+++ b/challenge-004/abigail/perl/ch-1.pl
@@ -0,0 +1 @@
+say 2 * atan2 (1,0)
diff --git a/challenge-004/abigail/perl/ch-2.pl b/challenge-004/abigail/perl/ch-2.pl
new file mode 100644
index 0000000000..7d252aa886
--- /dev/null
+++ b/challenge-004/abigail/perl/ch-2.pl
@@ -0,0 +1,26 @@
+use 5.026;
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+#
+# Assume the list of letters are the arguments. Read the list
+# of words from STDIN
+#
+my %letters;
+$letters {$_} ++ for "@ARGV" =~ /[a-z]/g;
+
+WORD: while (<STDIN>) {
+        chomp;
+        next if /[^a-z]/;
+        my %l;
+        $l {$_} ++ for split //;
+        foreach my $c (keys %l) {
+            no warnings 'uninitialized';
+            next WORD if $letters {$c} < $l {$c};
+        }
+        say;
+}
+
+__END__
diff --git a/challenge-004/abigail/perl5/ch-1.pl b/challenge-004/abigail/perl5/ch-1.pl
deleted file mode 100644
index b6b556b801..0000000000
--- a/challenge-004/abigail/perl5/ch-1.pl
+++ /dev/null
@@ -1 +0,0 @@
-say 2 * atan2 (1,0)
diff --git a/challenge-004/abigail/perl5/ch-2.pl b/challenge-004/abigail/perl5/ch-2.pl
deleted file mode 100644
index 7d252aa886..0000000000
--- a/challenge-004/abigail/perl5/ch-2.pl
+++ /dev/null
@@ -1,26 +0,0 @@
-use 5.026;
-
-use strict;
-use warnings;
-no  warnings 'syntax';
-
-#
-# Assume the list of letters are the arguments. Read the list
-# of words from STDIN
-#
-my %letters;
-$letters {$_} ++ for "@ARGV" =~ /[a-z]/g;
-
-WORD: while (<STDIN>) {
-        chomp;
-        next if /[^a-z]/;
-        my %l;
-        $l {$_} ++ for split //;
-        foreach my $c (keys %l) {
-            no warnings 'uninitialized';
-            next WORD if $letters {$c} < $l {$c};
-        }
-        say;
-}
-
-__END__
-- 
cgit