/[libconf]/libconf/perl-Libconf/templates/shell_template.pm
ViewVC logotype

Diff of /libconf/perl-Libconf/templates/shell_template.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by dams, Thu May 1 17:58:29 2003 UTC revision 1.7 by dams, Sun May 25 12:41:09 2003 UTC
# Line 37  $templates{shell} = { Line 37  $templates{shell} = {
37                                          }                                          }
38                                        ) ],                                        ) ],
39                            comments => [ ['#'] ],                            comments => [ ['#'] ],
40                            comment_output => q(/^(\s*)$/ ? "$_\n" : "#$_\n"),  #                         comment_output => q(join("\n", grep { !$_->{inline} } @{$atom-> )    /^(\s*)$/ ? "$_\n" : "#$_\n"),
41                            output => {                            output => {
42                                       KEY_VALUE => q(                                       KEY_VALUE => q(
43                                              my ($key, $value) = ($atom->{key}, $atom->{value});                                              my ($key, $value) = ($atom->{key}, $atom->{value});
44                                              $value =~ /"/ and return qq($key='$value'\n);                                              $value =~ /"/ and return qq($key='$value'\n);
45                                              $value =~ /'/ and return qq($key="$value"\n);                                              $value =~ /'/ and return qq($key="$value"\n);
46                                              $value =~ / / and return qq($key="$value"\n);                                              $value =~ / / and return qq($key="$value"\n);
47                                              qq($key=$value\n);                                              handle_comment(qq($key=$value), $atom->{comments});
48                                       ),                                       ),
49                                      },                                      },
50                            edit_atom => q(                            edit_atom => q(

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26