Changeset 28525 for trunk/Nebulous/lib
- Timestamp:
- Jun 28, 2010, 2:59:29 PM (16 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous/lib/Nebulous/Client.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous/lib/Nebulous/Client.pm
r28446 r28525 9 9 no warnings qw( uninitialized ); 10 10 11 our $VERSION = '0.1 7';11 our $VERSION = '0.18'; 12 12 13 13 use Digest::MD5; … … 741 741 } 742 742 743 sub find_objects_wildcard 744 { 745 my $self = shift; 746 747 my @args = validate_pos( @_, 748 { 749 type => SCALAR, 750 optional => 1, 751 }, 752 ); 753 754 $log->debug( "entered - @_" ); 755 756 my $response = $self->{ 'server' }->find_objects_wildcard( @args ); 757 if ( $response->fault ) { 758 $self->set_err($response->faultstring); 759 760 if ($response->faultstring =~ /no keys found/) { 761 $log->debug( "leaving" ); 762 return; 763 } 764 if ($response->faultstring =~ /does not match any key or directory/) { 765 $log->debug( "leaving" ); 766 return; 767 } 768 769 $log->logdie("unhandled fault - ", $self->err); 770 } 771 772 my $keys = $response->result; 773 774 $log->debug( "server found: @$keys" ); 775 776 # foreach my $path ( @{ $uris } ) { 777 # $path = _get_file_path( $path ); 778 # } 779 780 $log->debug( "leaving" ); 781 782 return $keys; 783 } 784 743 785 744 786 sub find_instances
Note:
See TracChangeset
for help on using the changeset viewer.
