| 
      
            Lines 177-182
          sub send_or_die {
      
      
        Link Here
      
     | 
  
        
          | 177 | 
                  $args->{to} = \@recipients; | 
          177 | 
                  $args->{to} = \@recipients; | 
        
        
          | 178 | 
              }  | 
          178 | 
              }  | 
        
        
          | 179 | 
           | 
          179 | 
           | 
        
            
               | 
               | 
              180 | 
                  unless ( $args->{from} ) {    # don't do it if passed an explicit 'from' param | 
            
            
              | 181 | 
                      my @headers = $self->email->header_str_pairs;  | 
            
            
              | 182 | 
                      foreach my $pair ( pairs @headers ) { | 
            
            
              | 183 | 
                          my ( $header, $value ) = @$pair;  | 
            
            
              | 184 | 
                          $args->{from} = $value if $header eq 'Sender'; | 
            
            
              | 185 | 
                      }  | 
            
            
              | 186 | 
               | 
            
            
              | 187 | 
                      # Remove the Sender header  | 
            
            
              | 188 | 
                      $self->email->header_str_set('Sender'); | 
            
            
              | 189 | 
                  }  | 
            
            
              | 190 | 
               | 
            
        
          | 180 | 
              $self->SUPER::send_or_die($args);  | 
          191 | 
              $self->SUPER::send_or_die($args);  | 
        
        
          | 181 | 
          }  | 
          192 | 
          }  | 
        
        
          | 182 | 
           | 
          193 | 
           | 
        
            
              | 183 | 
              -   | 
               | 
               |