Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 0503e56b

Von Moritz Bunkus vor mehr als 12 Jahren hinzugefügt

  • ID 0503e56b6de6c32a88289d4d0cbd6998ab22e281
  • Vorgänger 3ace9841
  • Nachfolger 69a44d3b

Form::error nur als Instanz-, nicht als Klassenmethode aufrufen

Fix für 1892.

Unterschiede anzeigen:

SL/Inifile.pm
51 51 

  		




  52
  52
  
    
  my $self = { "FILE" => $file };


  		




  53
  53
  
    

  		




  54
  
  
    
  open FH, "$file" or Form->error("$file : $!");


  		




  
  54
  
    
  open FH, "$file" or $::form->error("$file : $!");


  		




  55
  55
  
    

  		




  56
  56
  
    
  while (<FH>) {


  		




  57
  57
  
    
    chomp;


  		




  ......




  101
  101
  
    
  my ($self) = @_;


  		




  102
  102
  
    

  		




  103
  103
  
    
  my $file = $self->{FILE};


  		




  104
  
  
    
  my $fh   = IO::File->new($file, "w") || Form->error("$file : $!");


  		




  
  104
  
    
  my $fh   = IO::File->new($file, "w") || $::form->error("$file : $!");


  		




  105
  105
  
    

  		




  106
  106
  
    
  foreach my $section_name (sort keys %{ $self }) {


  		




  107
  107
  
    
    next if $section_name =~ m/^[A-Z]+$/;


  		




  ......




  118
  118
  
    
}


  		




  119
  119
  
    

  		




  120
  120
  
    
1;


  		




  121
  
  
    

  		












Auch abrufbar als:  Unified diff