Parent Directory
| 
Revision Log
| 
Patch
| revision 163 by dpavlin, Thu Aug 6 15:15:53 2009 UTC | revision 164 by dpavlin, Thu Aug 6 18:43:55 2009 UTC | |
|---|---|---|
| # | Line 28 sub conf { | Line 28 sub conf { |
| 28 | write_file $path, $default; | write_file $path, $default; |
| 29 | warn "default $path = $default"; | warn "default $path = $default"; |
| 30 | $value = $default; | $value = $default; |
| 31 | } else { | } elsif ( -e $path ) { |
| 32 | $value = read_file $path if -e $path; | if ( -l $path ) { |
| 33 | $value = readlink $path; | |
| 34 | $value =~ s{.*/([^/]+)$}{$1}; | |
| 35 | } else { | |
| 36 | $value = read_file $path; | |
| 37 | } | |
| 38 | } | } |
| 39 | return $value; | return $value; |
| 40 | } | } |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |