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

Diff of /FigKernelPackages/proml.pm

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

revision 1.1, Fri Jan 12 23:45:29 2007 UTC revision 1.2, Sat Jan 13 03:22:44 2007 UTC
# Line 105  Line 105 
105                       uproot_newick                       uproot_newick
106                     );                     );
107    
 use Sys::Hostname qw( hostname );  
   
108    
109  sub proml  sub proml
110  {  {
# Line 276  Line 274 
274          $tmp = $tmp && -d  $tmp  ?  $tmp          $tmp = $tmp && -d  $tmp  ?  $tmp
275               :         -d '/tmp' ? '/tmp'               :         -d '/tmp' ? '/tmp'
276               :                     '.';               :                     '.';
277          $tmp_dir = "$tmp/proml.@{[Sys::Hostname::hostname]}.$$";          my $int = int( 1000000000 * rand);
278            $tmp_dir = "$tmp/proml.$$.$int";
279          mkdir $tmp_dir;          mkdir $tmp_dir;
280      }      }
281    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3