File 0001-Remove-e-mail-requirement.patch of Package build

From eca67d924de1a39270ce3af1643ba309cbf18df4 Mon Sep 17 00:00:00 2001
From: Arachnos
Date: Mon, 6 Sep 2021 00:00:00 +0000
Subject: [PATCH] Remove e-mail requirement

Remove the e-mail requirement for changelog entries.
---
 changelog2spec | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/changelog2spec b/changelog2spec
index d4c8f3c..051c518 100755
--- a/changelog2spec
+++ b/changelog2spec
@@ -118,7 +118,7 @@ sub parse_suse {
   $_ = $_[0];
 
   my $dline;
-  die("bad changelog heading\n") unless /^(?:\* )?([A-Za-z]+\s+[A-Za-z]+\s+[0-9][^-]*?[0-9][0-9][0-9][0-9])(.*\@.*$)/;
+  die("bad changelog heading\n") unless /^(?:\* )?([A-Za-z]+\s+[A-Za-z]+\s+[0-9][^-]*?[0-9][0-9][0-9][0-9])(.*$)/;
   my $dt = $1;
   my $who = $2;
   $dt = lc($dt);
@@ -155,7 +155,7 @@ sub parse_suse {
   my $change = '';
   while(<>) {
     chomp;
-    last if /^(?:\* )?([A-Za-z]+\s+[A-Za-z]+\s+[0-9][^-]*?[0-9][0-9][0-9][0-9])(.*\@.*$)/;
+    last if /^(?:\* )?([A-Za-z]+\s+[A-Za-z]+\s+[0-9][^-]*?[0-9][0-9][0-9][0-9])(.*$)/;
     next if (/^--------------/);
     next if (/^========================/);
     s/\s+$//;
@@ -214,7 +214,7 @@ while (<>) {
   next if /^\s*$/;
   next if (/^--------------/);
   next if (/^========================/);
-  if (/^(?:\* )?([A-Za-z]+\s+[A-Za-z]+\s+[0-9][^-]*?[0-9][0-9][0-9][0-9])(.*\@.*$)/) {
+  if (/^(?:\* )?([A-Za-z]+\s+[A-Za-z]+\s+[0-9][^-]*?[0-9][0-9][0-9][0-9])(.*$)/) {
     # suse :    * Fri Jun 07 2013 First Last <first.last@example.com>
     # tizen:    * Fri Jun 07 2013 First Last <first.last@example.com> tagname@commitid
     $format = 'suse';
-- 
2.33.0