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

Diff of /FigKernelPackages/SeedAware.pm

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

revision 1.4, Mon Aug 30 17:40:04 2010 UTC revision 1.5, Thu Sep 16 23:51:21 2010 UTC
# Line 630  Line 630 
630      $ext  = ''     if !   defined $ext;      $ext  = ''     if !   defined $ext;
631      $ext  =~ s/^([^.])/.$1/;   # Start ext with .      $ext  =~ s/^([^.])/.$1/;   # Start ext with .
632      $dir  = ''     if !   defined $dir;      $dir  = ''     if !   defined $dir;
633      $dir  =~ s.([/])$.$1/.;    # End dir with /      $dir .= '/' if $dir =~ m/[^\/]$/; # End dir with /
634      while ( 1 )      while ( 1 )
635      {      {
636          my $r    = rand( 1e6 );          my $r    = rand( 1e6 );

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3