From: Mike Guy <mjtg@cam.ac.uk>
Date: Sun, 24 Jun 2001 13:31:00 +0000 (+0100)
Subject: Remove tautology in error messages
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0322a713a271eb2b52432d4aa82e700773da354c;p=p5sagit%2Fp5-mst-13.2.git

Remove tautology in error messages
Message-Id: <E15E92a-0006em-00@draco.cus.cam.ac.uk>

p4raw-id: //depot/perl@10885
---

diff --git a/pp_sys.c b/pp_sys.c
index e79d7ef..d925412 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3400,7 +3400,7 @@ PP(pp_chown)
     PUSHi(value);
     RETURN;
 #else
-    DIE(aTHX_ PL_no_func, "Unsupported function chown");
+    DIE(aTHX_ PL_no_func, "chown");
 #endif
 }
 
@@ -3486,7 +3486,7 @@ PP(pp_link)
     TAINT_PROPER("link");
     SETi( PerlLIO_link(tmps, tmps2) >= 0 );
 #else
-    DIE(aTHX_ PL_no_func, "Unsupported function link");
+    DIE(aTHX_ PL_no_func, "link");
 #endif
     RETURN;
 }
@@ -3907,7 +3907,7 @@ PP(pp_fork)
     PUSHi(childpid);
     RETURN;
 #  else
-    DIE(aTHX_ PL_no_func, "Unsupported function fork");
+    DIE(aTHX_ PL_no_func, "fork");
 #  endif
 #endif
 }
@@ -3935,7 +3935,7 @@ PP(pp_wait)
     XPUSHi(childpid);
     RETURN;
 #else
-    DIE(aTHX_ PL_no_func, "Unsupported function wait");
+    DIE(aTHX_ PL_no_func, "wait");
 #endif
 }
 
@@ -3965,7 +3965,7 @@ PP(pp_waitpid)
     SETi(childpid);
     RETURN;
 #else
-    DIE(aTHX_ PL_no_func, "Unsupported function waitpid");
+    DIE(aTHX_ PL_no_func, "waitpid");
 #endif
 }
 
@@ -4148,7 +4148,7 @@ PP(pp_kill)
     PUSHi(value);
     RETURN;
 #else
-    DIE(aTHX_ PL_no_func, "Unsupported function kill");
+    DIE(aTHX_ PL_no_func, "kill");
 #endif
 }
 
@@ -4375,7 +4375,7 @@ PP(pp_alarm)
     PUSHi(anum);
     RETURN;
 #else
-    DIE(aTHX_ PL_no_func, "Unsupported function alarm");
+    DIE(aTHX_ PL_no_func, "alarm");
 #endif
 }