[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.1299 and 1.1300

version 1.1299, 2017/11/04 20:40:57 version 1.1300, 2017/11/05 19:04:44
Line 85  use DynaLoader; # for Crypt::DES version Line 85  use DynaLoader; # for Crypt::DES version
 use MIME::Lite;  use MIME::Lite;
 use MIME::Types;  use MIME::Types;
 use File::Copy();  use File::Copy();
 use File::Path::Tiny();  use File::Path();
   
 # ---------------------------------------------- Designs  # ---------------------------------------------- Designs
 use vars qw(%defaultdesign);  use vars qw(%defaultdesign);
Line 12660  sub process_decompression { Line 12660  sub process_decompression {
                                 if (-f "$dir/$tempdir/$item") {                                   if (-f "$dir/$tempdir/$item") { 
                                     unlink("$dir/$tempdir/$item");                                      unlink("$dir/$tempdir/$item");
                                 } elsif (-d "$dir/$tempdir/$item") {                                  } elsif (-d "$dir/$tempdir/$item") {
                                     &File::Path::Tiny::rm("$dir/$tempdir/$item");                                      &File::Path::remove_tree("$dir/$tempdir/$item",{ safe => 1 });
                                 }                                  }
                             }                              }
                         }                          }
Line 12670  sub process_decompression { Line 12670  sub process_decompression {
                                     if (-f "$dir/$item") {                                      if (-f "$dir/$item") {
                                         unlink("$dir/$item");                                          unlink("$dir/$item");
                                     } elsif (-d "$dir/$item") {                                      } elsif (-d "$dir/$item") {
                                         &File::Path::Tiny::rm("$dir/$item");                                          &File::Path::remove_tree("$dir/$item",{ safe => 1 });
                                     }                                      }
                                     &File::Copy::move("$dir/$tempdir/$item","$dir/$item");                                      &File::Copy::move("$dir/$tempdir/$item","$dir/$item");
                                 }                                  }
                             }                              }
                         }                          }
                         if (&File::Copy::move("$dir/$tempdir/$file","$dir/$file")) {                          if (&File::Copy::move("$dir/$tempdir/$file","$dir/$file")) {
                             &File::Path::Tiny::rm("$dir/$tempdir");                              &File::Path::remove_tree("$dir/$tempdir",{ safe => 1 });
                         }                          }
                     }                      }
                 } else {                  } else {
Removed from v.1.1299  
changed lines
  Added in v.1.1300

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>