Subversion Repositories VORC

Rev

Rev 59 | Rev 65 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59 Rev 63
Line 368... Line 368...
368
  } else {
368
  } else {
369
  	foreach (split /:/, $input) {
369
  	foreach (split /:/, $input) {
370
  	  my ($tla, $level) = split /-/;
370
  	  my ($tla, $level) = split /-/;
371
  	  $output->{$tla} = $level;
371
  	  $output->{$tla} = $level;
372
    }
372
    }
-
 
373
    $output = {} unless ref $output eq "HASH";
373
  }
374
  }
Line 374... Line 375...
374
  
375
  
375
  return $output;
376
  return $output;