212     my @zone = @_;

   212     my @zone = @_;

   213 

   213 

   214     # first make a backup copy

   214     # first make a backup copy

   215     my $tmp = File::Temp->new();

   215     my $tmp = File::Temp->new();

   216     $tmp->print(nice @zone);

   216     $tmp->print(nice @zone);

   217     $tmp->flush();

   218     $tmp->flush();

   218 

   219 

   219     system $arg{-editor} => $tmp->filename;

   220     system $arg{-editor} => $tmp->filename;

   220     $tmp->seek(0, 0);

   221     $tmp->seek(0, 0);

   221     ${ $arg{-backup} } = $tmp if $arg{-backup};

   222     ${ $arg{-backup} } = $tmp if $arg{-backup};