Parent Directory | Revision Log | Patch
revision 1.4 by jlenton, Wed Apr 9 23:52:49 2003 UTC | revision 1.5 by jlenton, Thu Apr 10 23:01:39 2003 UTC | |
---|---|---|
# | Line 14 | Line 14 |
14 | ||
15 | package neb::Tree::Node; | package neb::Tree::Node; |
16 | use strict; | use strict; |
17 | use warnings; | |
18 | use Carp; | use Carp; |
19 | use neb::Quoter; | |
20 | ||
21 | our $DEBUG; | our $DEBUG; |
22 | ||
# | Line 44 sub code | Line 46 sub code |
46 | { | { |
47 | my $self = shift; | my $self = shift; |
48 | ||
49 | return sprintf ("\$OUTPUT .= \"%s\";\n", | return sprintf ("\$OUTPUT .= %s;\n", |
50 | quotemeta $self->canonical); | quote $self->canonical); |
51 | } | } |
52 | ||
53 | 1; | 1; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |