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

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

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

revision 1.15 by dams, Sun Apr 13 22:55:41 2003 UTC revision 1.16 by dams, Mon Apr 21 11:52:07 2003 UTC
# Line 120  my %validation = (); Line 120  my %validation = ();
120  #                );  #                );
121    
122  sub new {  sub new {
123      my ($pkg, $filename, $template_name, $validation_name) = @_;      my ($pkg, $filename, $template_name, $validation_name, $template_filename) = @_;
124      -e $filename or die ("$filename not found");      -e $filename or die ("$filename not found");
125      eval "require Libconf::templates::$template_name" . '_template';      $template_filename ?
126          require $template_filename : eval "require Libconf::templates::$template_name" . '_template';
127      my %out;      my %out;
128      $out{filename} = $filename;      $out{filename} = $filename;
129      $out{template_name} = $template_name;      $out{template_name} = $template_name;

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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