"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "DADA/Mail/MailOut.pm" between
dada-11_14_1.tar.gz and dada-11_14_2.tar.gz

About: Dada is a web-based electronic (mass) mailing list management system.

MailOut.pm  (dada-11_14_1):MailOut.pm  (dada-11_14_2)
skipping to change at line 1953 skipping to change at line 1953
# #
########################################################################## ##########################################################################
my $orig_name = $self->dir; my $orig_name = $self->dir;
# so, we rename things, to get them out of the way, right away: # so, we rename things, to get them out of the way, right away:
my $tmp_name = $orig_name; my $tmp_name = $orig_name;
$tmp_name =~ s/sendout/TMP_sendout/; $tmp_name =~ s/sendout/TMP_sendout/;
File::Copy::move( $orig_name, $tmp_name ) File::Copy::move( $orig_name, $tmp_name )
or warn "could not move director from, '$orig_name', to, '$tmp_name': $!"; or warn "could not move directory from, '$orig_name', to, '$tmp_name': $!" ;
# return 1; warn 'change back when shipping!'; # return 1; warn 'change back when shipping!';
$self->dir($tmp_name); $self->dir($tmp_name);
my $lock = $self->lock_file( $self->mailout_directory_name( { -tmp => 1 } ) ); my $lock = $self->lock_file( $self->mailout_directory_name( { -tmp => 1 } ) );
my @deep_six_list; my @deep_six_list;
for my $fn ( keys %$file_names ) { for my $fn ( keys %$file_names ) {
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)