Merge pull request #112 from mariux64/fix-mxmirror

mxmirror: Avoid perl warning
mariux64 · Jan 9, 2020 · a15ab91 · a15ab91
2 parents d8f6b34 + 1806e36
commit a15ab91
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/mxmirror/mxmirror b/mxmirror/mxmirror
@@ -487,10 +487,13 @@ sub read_mirrormap {
         if(($from, $to, $args) = /^(\S+) (\S+)\s*(.*)$/) {
 
             $source      = convert_to_sourcepath($from);
+            unless ($source) {
+               print STDERR "**ERROR: CAN'T PARSE FROM: $_\n";
+               next;
+            }
             $destination = convert_to_destinationpath($to, $source);
-
-            unless($source and $destination) {
-               print STDERR "**ERROR: CAN'T PARSE FROM/TO: $_\n";
+            unless($destination) {
+               print STDERR "**ERROR: CAN'T PARSE TO: $_\n";
                next;
             }