Explorar o código

Ticket #48316 - Perl-5.20.3-328: Use of literal control characters in variable names is deprecated

Description: "$^O" issues a warning "Use of literal control characters in
variable names is deprecated at /usr/lib64/dirsrv/perl/DSCreate.pm line 839."

This patch replaces "$^O" with "$Config{'osname'}".

https://fedorahosted.org/389/ticket/48316

Reviewed by [email protected] and [email protected] (Thank you, Rich and William!!)
Noriko Hosoi %!s(int64=10) %!d(string=hai) anos
pai
achega
65362db30f
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      ldap/admin/src/scripts/DSCreate.pm.in

+ 2 - 1
ldap/admin/src/scripts/DSCreate.pm.in

@@ -18,6 +18,7 @@ package DSCreate;
 use DSUtil;
 use Inf;
 use FileConn;
+use Config;
 
 use Sys::Hostname;
 # tempfiles
@@ -836,7 +837,7 @@ sub setDefaults {
     }
 
     if (!defined($inf->{slapd}->{sasl_path})) {
-        if ($ ne "linux") {
+        if ($Config{'osname'} ne "linux") {
             $inf->{slapd}->{sasl_path} = "$inf->{General}->{prefix}@libdir@/sasl2";
         }
     }