X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=tools%2Fimport.pl;h=8946e090d9b42c2b632dc13ee11070efe240f7e4;hb=176019f33f06ef45e85357dcd72a1b81a9c5a82d;hp=5a1e0dcaf6ac35d4ec02001c04aee410112dd120;hpb=684156f7eae29ace1183e8ec570169d3ab6dc61e;p=sugar.git

diff --git a/tools/import.pl b/tools/import.pl
index 5a1e0dc..8946e09 100644
--- a/tools/import.pl
+++ b/tools/import.pl
@@ -11,7 +11,9 @@ sub main {
     while (defined(my $arg = <>)) {
         chomp $arg;
 
-        my $rel   = File::Spec->abs2rel($arg, $ENV{HOME});
+        my $rel   = File::Spec->file_name_is_absolute($arg)
+                      ? File::Spec->abs2rel($arg, $ENV{HOME})
+                      : $arg;
         my $abs   = File::Spec->rel2abs($rel, $ENV{HOME});
         my $saved = rel2saved($rel);