File pilot-link-0.12.2-mode.diff of Package perl-PDA-Pilot

--- src/pilot-schlep.c
+++ src/pilot-schlep.c
@@ -38,7 +38,7 @@
 		fd;
 	pi_buffer_t *buffer;
 
-	fd = open(filename, O_WRONLY | O_CREAT | O_TRUNC);
+	fd = open(filename, O_WRONLY | O_CREAT | O_TRUNC, 0644);
 	if (fd < 0)
 		return -1;