avoid nonportable example code

p4raw-id: //depot/perl@7174

diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm
index e6cf786..8d1d783 100644 (file)
--- a/lib/File/Copy.pm
+++ b/lib/File/Copy.pm
@@ -221,7 +221,7 @@ File::Copy - Copy files or filehandles
        use POSIX;
        use File::Copy cp;
 
-       $n=FileHandle->new("/dev/null","r");
+       $n = FileHandle->new("/a/file","r");
        cp($n,"x");'
 
 =head1 DESCRIPTION