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 b02a3a7e9e72af68bac317a00e8f8e6fefa257e0..e90d545a8a078c90b32b9f5f19609545390f6ab4 100644 (file)
--- 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);