Parent Directory | Revision Log | Patch
revision 1.3 by skx, Tue Oct 14 13:45:30 2003 UTC | revision 1.4 by skx, Tue Oct 14 13:52:39 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!(.*?)\$([^ .,\n\t\$]+)(.*)!$1.${'main::'.$2}.$3!e ) | while ( $text =~ s!(.*?)\$([^ .,\/\n\t\$]+)(.*)!$1.${'main::'.$2}.$3!e ) |
84 | { | { |
85 | 1 | 1 |
86 | }; | }; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |