Auto commit by The Sugar System.

[sugar.git] / tools / import.pl

diff --git a/tools/import.pl b/tools/import.pl
index c1bacaebf7824b323969ead4177ba7a715bbe528..8946e090d9b42c2b632dc13ee11070efe240f7e4 100644 (file)
--- a/tools/import.pl
+++ b/tools/import.pl
@@ -8,10 +8,12 @@ use File::Copy;
 use File::Path;
 
 sub main {
-    my @args = @_;
+    while (defined(my $arg = <>)) {
+        chomp $arg;
 
-    foreach my $arg (@args) {
-        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);
 
@@ -23,4 +25,4 @@ sub main {
     }
 }
 
-main(@ARGV);
+main();