mxmirror: Avoid perl warning

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;
             }