YA resync with mainstem, including VMS patches from others

[p5sagit/p5-mst-13.2.git] / eg / g / gcp

diff --git a/eg/g/gcp b/eg/g/gcp
index 6b4a9a7..d18b6f6 100644 (file)
--- a/eg/g/gcp
+++ b/eg/g/gcp
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: gcp,v 2.0 88/06/05 00:17:02 root Exp $
+# $RCSfile: gcp,v $$Revision: 4.1 $$Date: 92/08/07 17:20:15 $
 
 # Here is a script to do global rcps.  See man page.
 
@@ -98,7 +98,7 @@ line: while (<>) {
 
 if ($remainder) {
     chop($remainder);
-    open(grem,">.grem") || (printf stderr "Can't create .grem\n");
+    open(grem,">.grem") || (printf stderr "Can't create .grem: $!\n");
     print grem 'rem=', $remainder, "\n";
     close(grem);
     print 'rem=', $remainder, "\n";