trouble matching snapshot

natxoasenjo — Fri, 08 Dec 2017 20:42:33 GMT

I have these 2 subroutines:

sub _remove_snap {
my ( $vm ) = @_;

    # skip if no snapshots on vm
    unless ( defined $vm->snapshot ) {
        print $vm->name . " has no snapshots, skipping\n";
        return;
    }
    my $snaps = _find_snapname( $vm->snapshot->currentSnapshot,
        $vm->snapshot->rootSnapshotList );

print Dumper $snaps;
}

sub _find_snapname {
    my ( $ref, $tree ) = @_;
    my @snaps;
    foreach my $node (@$tree) {
        print $node->name, "\t" . $node->createTime . "\n";
        if ( $node->name eq $snapname ) {
            push @snaps, $node
        }
        _find_snapname( $ref, $node->childSnapshotList );
    }

return \@snaps;
}

And I cannot seem to return the snapshot information from _find_snapname back to _remove_snap. If I print with Dumper at the end of _find_snapname right before the return \@snaps statement, I see the correct info displayed on screen, but when dumping it on the _remove_snap subroutine, then I get an empty $VAR1 = [];

I am obviously missing something obvious, but I do not see it. Any help greatly appreciated.

topic trouble matching snapshot in vSphere SDK for Perl Discussions

trouble matching snapshot