Index: ext/standard/ftok.c
===================================================================
RCS file: /repository/php-src/ext/standard/ftok.c,v
retrieving revision 1.13
diff -u -w -r1.13 ftok.c
--- ext/standard/ftok.c	24 Jun 2004 00:48:58 -0000	1.13
+++ ext/standard/ftok.c	28 Jan 2005 11:26:41 -0000
@@ -32,7 +32,6 @@
 PHP_FUNCTION(ftok)
 {
     pval **pathname, **proj;
-
     key_t k;
 
     if(ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &pathname, &proj) == FAILURE) {
@@ -43,12 +42,12 @@
     convert_to_string_ex(proj);
 
     if (Z_STRLEN_PP(pathname)==0){
-        php_error_docref(NULL TSRMLS_CC, E_WARNING, "First argument invalid");
+		php_error_docref(NULL TSRMLS_CC, E_WARNING, "Pathname is invalid");
         RETURN_LONG(-1);
     }
 
     if (Z_STRLEN_PP(proj)!=1){
-        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Second argument invalid");
+		php_error_docref(NULL TSRMLS_CC, E_WARNING, "Project identifier is invalid");
         RETURN_LONG(-1);
     }
 
@@ -57,6 +56,9 @@
 	}
 
     k = ftok(Z_STRVAL_PP(pathname),Z_STRVAL_PP(proj)[0]);
+	if (k == -1) {
+		php_error_docref(NULL TSRMLS_CC, E_WARNING, "ftok() failed - %s", strerror(errno));
+	}
 
     RETURN_LONG(k);
 }