Parent Directory | Revision Log | Patch
revision 1.8 by skx, Sat Nov 1 16:21:42 2003 UTC | revision 1.9 by skx, Sun Nov 23 16:42:53 2003 UTC | |
---|---|---|
# | Line 80 sub interpolateString( $ ) | Line 80 sub interpolateString( $ ) |
80 | no strict 'refs'; | no strict 'refs'; |
81 | no warnings; | no warnings; |
82 | ||
83 | while ( $text =~ s!(.*?)\$([a-zA-Z-_]+)(.*)!$1.${'main::'.$2}.$3!e ) | while ( $text =~ s!(.*?)\$([a-zA-Z-_\!]+)(.*)!$1.${'main::'.$2}.$3!e ) |
84 | { | { |
85 | 1 | 1 |
86 | }; | }; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |