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;