debian/patches/105_dont-use-warn-method.diff

   1 --- maypole.orig/lib/Maypole/View/TT.pm
   2 +++ maypole/lib/Maypole/View/TT.pm
   3 @@ -43,11 +43,11 @@
   4    } else {
   5      if ($@) {
   6        my $error = "fatal error in template '$template_file' : $@\nTT paths : " . join(', ',$self->paths($r)) . "\n";
   7 -      $r->warn($error);
   8 +      warn $error;
   9        $r->{error} = $error;
  10      } else {
  11        my $error = "TT error for template '$template_file'\n" . $self->{tt}->error . "\nTT paths : " . join(', ',$self->paths($r)) . "\n";
  12 -      $r->warn($error);
  13 +      warn $error;
  14        $r->{error} = $error;
  15      }
  16      return ERROR;
  17 @@ -62,12 +62,12 @@
  18      # Need to be very careful here.
  19      my $tt = Template->new;
  20      unless (ref $r->{config}) {
  21 -      $r->warn("no config for this request");
  22 +      warn "no config for this request";
  23        $error .= '<br> There was a problem finding configuration for this request';
  24        $r->{config} ||= {};
  25      }
  26
  27 -    $r->warn("report_error - reporting error to user : $error\n");
  28 +    warn "report_error - reporting error to user : $error\n";
  29
  30      if ($tt->process(\$error_template,
  31                      { err_type => $type, error => $error,