diff --git a/src/perl/PMDA/PMDA.xs b/src/perl/PMDA/PMDA.xs
index 4b08f2e..a6d16b2 100644
--- a/src/perl/PMDA/PMDA.xs
+++ b/src/perl/PMDA/PMDA.xs
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2013 Red Hat.
+ * Copyright (c) 2013-2014 Red Hat.
  * Copyright (c) 2008-2012 Aconex.  All Rights Reserved.
  * Copyright (c) 2004 Silicon Graphics, Inc.  All Rights Reserved.
  * 
@@ -1100,7 +1100,8 @@ put_sock(self,id,output)
 	int	id
 	char *	output
     CODE:
-	RETVAL = write(local_files_get_descriptor(id), output, strlen(output));
+	size_t	length = strlen(output);
+	RETVAL = __pmWrite(local_files_get_descriptor(id), output, length);
     OUTPUT:
 	RETVAL
 
diff --git a/src/perl/PMDA/local.c b/src/perl/PMDA/local.c
index e297e73..03a67fa 100644
--- a/src/perl/PMDA/local.c
+++ b/src/perl/PMDA/local.c
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2012-2013 Red Hat.
+ * Copyright (c) 2012-2014 Red Hat.
  * Copyright (c) 2008-2011 Aconex.  All Rights Reserved.
  * 
  * This program is free software; you can redistribute it and/or modify it
@@ -417,7 +417,7 @@ local_pmdaMain(pmdaInterface *self)
 		continue;
 	    offset = 0;
 multiread:
-	    bytes = read(fd, buffer + offset, sizeof(buffer)-1 - offset);
+	    bytes = __pmRead(fd, buffer + offset, sizeof(buffer)-1 - offset);
 	    if (bytes < 0) {
 		if ((files[i].type == FILE_TAIL) &&
 		    (oserror() == EINTR) ||