copy don't symlink

More flexible and the files aren't going to change.

1 files changed, 3 insertions, 2 deletions

diff --git a/perl5/Local/Desktop.pm b/perl5/Local/Desktop.pm
index 1b2fcc3e..46a62bbf 100644
--- a/perl5/Local/Desktop.pm
+++ b/perl5/Local/Desktop.pm
@@ -26,6 +26,7 @@ use File::Find;
 use File::LibMagic;
 use File::Spec::Functions "rel2abs";
 use Exporter "import";
+use File::Copy;
 
 our @EXPORT = qw(
   select_wallpaper_files
@@ -40,7 +41,7 @@ my $output_re = qr/ ([0-9]+)x([0-9]+)\+([0-9]+)\+([0-9]+) /;
 Select the first entry of @files as the wallpaper for the first output, the
 second entry of @files as the wallpaper for the second output, etc.
 
-This function works by creating symlinks to those wallpapers in ~/local.
+This function works by creating copies of those wallpapers in ~/local.
 
 =cut
 
@@ -49,7 +50,7 @@ sub select_wallpaper_files {
     unlink <"$ENV{HOME}/local/wallpaper??.*">;
     for (@_) {
         -r or croak "$_ could not be read!";
-        symlink rel2abs($_),
+        copy $_,
           sprintf "$ENV{HOME}/local/wallpaper%02d." . (/\.([^.]+)\z/)[0], $i++;
     }
 }