Subversion Repositories zfs_utils

Rev

Rev 42 | Rev 44 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 42 Rev 43
Line 507... Line 507...
507 
sub makeReplicateCommands {
 507 
sub makeReplicateCommands {
508 
   my ( $sourceSnapsRef, $statusRef, $newStatusRef) = @_;
 508 
   my ( $sourceSnapsRef, $statusRef, $newStatusRef) = @_;
509 
   $sourceSnapsRef ||= [];
 509 
   $sourceSnapsRef ||= [];
510 
   $statusRef     ||= [];
 510 
   $statusRef     ||= [];
511 
   $newStatusRef  ||= [];
 511 
   $newStatusRef  ||= [];
512 
   $rootDataSet .= '/';
 - 
 
513 
 
 512 
 
514 
   # parse snapshots: each line is expected to have snapshot fullname as first token: pool/fs@snap ...
 513 
   # parse snapshots: each line is expected to have snapshot fullname as first token: pool/fs@snap ...
515 
   my %snaps_by_fs;
 514 
   my %snaps_by_fs;
516 
   foreach my $line (@$sourceSnapsRef) {
 515 
   foreach my $line (@$sourceSnapsRef) {
517 
      next unless defined $line && $line =~ /\S/;
 516 
      next unless defined $line && $line =~ /\S/;