use more descriptive examples in File::Copy

[perl5.git] / lib / File / Copy.pm

diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm
index 19a5838..b64f609 100644 (file)
--- a/lib/File/Copy.pm
+++ b/lib/File/Copy.pm
@@ -22,7 +22,7 @@ sub syscopy;
 sub cp;
 sub mv;
 
-$VERSION = '2.26';
+$VERSION = '2.27';
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -435,9 +435,9 @@ File::Copy - Copy files or filehandles
 
        use File::Copy;
 
-       copy("file1","file2") or die "Copy failed: $!";
+       copy("sourcefile","destinationfile") or die "Copy failed: $!";
        copy("Copy.pm",\*STDOUT);
-       move("/dev1/fileA","/dev2/fileB");
+       move("/dev1/sourcefile","/dev2/destinationfile");
 
        use File::Copy "cp";