cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm

[stas]

stas        2003/08/08 13:35:44

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  use upcase for hint messages
  
  Revision  Changes    Path
  1.60      +2 -2      modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.59
  retrieving revision 1.60
  diff -u -r1.59 -r1.60
  --- WrapXS.pm 7 Aug 2003 03:18:36 -0000       1.59
  +++ WrapXS.pm 8 Aug 2003 20:35:44 -0000       1.60
  @@ -855,7 +855,7 @@
       my @items = @{ $methods->{$method} };
       if (@items == 1) {
           my $module = $items[0]->[MODULE];
  -        my $hint = "to use method '$method' add:\n" . "\tuse $module ();\n";
  +        my $hint = "To use method '$method' add:\n" . "\tuse $module ();\n";
           return ($hint, $module);
       }
       else {
  @@ -864,7 +864,7 @@
               for my $item (@items) {
                   if ($class eq $item->[OBJECT]) {
                       my $module = $item->[MODULE];
  -                    my $hint = "to use method '$method' add:\n" .
  +                    my $hint = "To use method '$method' add:\n" .
                           "\tuse $module ();\n";
                       return ($hint, $module);
                   }