[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.419, Thu Jan 12 23:48:15 2006 UTC revision 1.420, Fri Jan 13 06:54:49 2006 UTC
# Line 28  Line 28 
28  use FileHandle;  use FileHandle;
29  use File::Copy;  use File::Copy;
30  use SOAP::Lite;  use SOAP::Lite;
31    use File::Path;
32    
33  use DBrtns;  use DBrtns;
34  use Sim;  use Sim;
# Line 2909  Line 2910 
2910    
2911          #          #
2912          # If $fname is relative, prepend the base of the fig_disk.          # If $fname is relative, prepend the base of the fig_disk.
2913            # (Updated to use PERL's system-independent filename utilities.
2914          #          #
2915    
2916          if ($fname !~ m,^/,)          $fname = File::Spec->rel2abs($fname, $FIG_Config::fig_disk);
         {  
             $fname = "$FIG_Config::fig_disk/$fname";  
         }  
2917    
2918          $fcache->{$fileno} = $fname;          $fcache->{$fileno} = $fname;
2919          return $fname;          return $fname;

Legend:
Removed from v.1.419  
changed lines
  Added in v.1.420

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3