view release on metacpan or  search on metacpan

Alias.pm  view on Meta::CPAN

272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
        return $deleted;
         
} # end delete
 
 
#------------------------------#
# Alias::update() Method       #
#       Version 1.0             8/13/00#
#------------------------------#
 
sub update {
 
        my ($self, $alias, $address_string) = @_;
        my ($found_it, $alias_line);
 
        undef $found_it;                                                
 
        # Form the alias line from the passed arguments
        if ($address_string) {                                  # If there is a second argument passed
                $alias_line = "$alias" . ": " . " $address_string";
        }