Cleaner.

[p5sagit/p5-mst-13.2.git] / pp_sys.c

diff --git a/pp_sys.c b/pp_sys.c
index 099eab9..e44ab1c 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2285,7 +2285,7 @@ PP(pp_socket)
 
 PP(pp_sockpair)
 {
-#if defined (HAS_SOCKETPAIR) || (defined (HAS_SOCKET) && defined(SOCK_DGRAM))
+#if defined (HAS_SOCKETPAIR) || (defined (HAS_SOCKET) && defined(SOCK_DGRAM) && defined(AF_INET) && defined(PF_INET))
     dSP;
     GV *gv1;
     GV *gv2;
@@ -3422,7 +3422,7 @@ PP(pp_chdir)
            )
         {
             if( MAXARG == 1 )
-                deprecate("chdir('') or chdir(undef) as chdir()");
+                deprecate_old("chdir('') or chdir(undef) as chdir()");
             tmps = SvPV(*svp, n_a);
         }
         else {
@@ -4043,8 +4043,8 @@ PP(pp_system)
        if (SP - MARK == 1) {
            TAINT_PROPER("system");
        }
-       else if (ckWARN(WARN_TAINT)) {
-           Perl_warner(aTHX_ WARN_TAINT, 
+       else if (ckWARN2(WARN_TAINT, WARN_DEPRECATED)) {
+           Perl_warner(aTHX_ packWARN2(WARN_TAINT, WARN_DEPRECATED),
                "Use of tainted arguments in %s is deprecated", "system");
        }
     }
@@ -4167,8 +4167,8 @@ PP(pp_exec)
        if (SP - MARK == 1) {
            TAINT_PROPER("exec");
        }
-       else if (ckWARN(WARN_TAINT)) {
-           Perl_warner(aTHX_ WARN_TAINT, 
+       else if (ckWARN2(WARN_TAINT, WARN_DEPRECATED)) {
+           Perl_warner(aTHX_ packWARN2(WARN_TAINT, WARN_DEPRECATED),
                "Use of tainted arguments in %s is deprecated", "exec");
        }
     }