Parent Directory | Revision Log | Patch
revision 1.7 by skx, Mon Oct 27 21:43:14 2003 UTC | revision 1.8 by skx, Sat Nov 1 16:21:42 2003 UTC | |
---|---|---|
# | Line 65 sub get( $ ) | Line 65 sub get( $ ) |
65 | { | { |
66 | my ( $class, $key ) = ( @_ ); | my ( $class, $key ) = ( @_ ); |
67 | ||
68 | return( &interpolateString( $TEXT{ $key } ) ); | return( &interpolateString( $class, $TEXT{ $key } ) ); |
69 | } | } |
70 | ||
71 | # | # |
# | Line 74 sub get( $ ) | Line 74 sub get( $ ) |
74 | # | # |
75 | sub interpolateString( $ ) | sub interpolateString( $ ) |
76 | { | { |
77 | my ( $text ) = ( @_ ); | my ( $class, $text ) = ( @_ ); |
78 | ||
79 | { | { |
80 | no strict 'refs'; | no strict 'refs'; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |