From: Dylan William Hardison <dylan@hardison.net>
Date: Fri, 23 Dec 2016 01:24:31 +0000 (-0500)
Subject: Bug 1325425 - checksetup.pl on windows should ensure $/ is "\r\n"
X-Git-Tag: release-5.1.2~27
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=a11fc4fe979dff00fb394dade34a7efce70eb2ad;p=thirdparty%2Fbugzilla.git

Bug 1325425 - checksetup.pl on windows should ensure $/ is "\r\n"

r=dkl,a=dylan
---

diff --git a/Bugzilla/Install.pm b/Bugzilla/Install.pm
index b02a3a7e9e..e90d545a8a 100644
--- a/Bugzilla/Install.pm
+++ b/Bugzilla/Install.pm
@@ -307,6 +307,10 @@ sub create_admin {
     my $dbh      = Bugzilla->dbh;
     my $template = Bugzilla->template;
 
+    # We must ensure $/ is set to \r\n on windows.
+    # CGI.pm unsets.
+    local $/ = ON_WINDOWS ? "\x0d\x0a" : "\x0a";
+
     my $admin_group = new Bugzilla::Group({ name => 'admin' });
     my $admin_inheritors =
         Bugzilla::Group->flatten_group_membership($admin_group->id);