[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.415, Thu Jan 5 01:16:45 2006 UTC revision 1.416, Tue Jan 10 16:45:24 2006 UTC
# Line 2529  Line 2529 
2529      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
2530      my($dir) = @_;      my($dir) = @_;
2531    
2532        if (!defined($dir))
2533        {
2534            Confess("FIG::verify_dir: missing \$dir argument\n");
2535        }
2536        if ($dir eq "")
2537        {
2538            confess("FIG::verify_dir: refusing to create a directory named ''\n");
2539        }
2540    
2541      if (-d $dir) {      if (-d $dir) {
2542          return          return
2543      }      }
2544      if ($dir =~ /^(.*)\/[^\/]+$/) {      if ($dir =~ /^(.*)\/[^\/]+$/ and $1 ne '') {
2545          &verify_dir($1);          &verify_dir($1);
2546      }      }
2547      mkdir($dir,0777) || Confess("Could not make directory $dir: $!");      mkdir($dir,0777) || Confess("Could not make directory $dir: $!");

Legend:
Removed from v.1.415  
changed lines
  Added in v.1.416

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3