Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 5494f687

Von Sven Schöling vor etwa 13 Jahren hinzugefügt

  • ID 5494f687372570c9d1c5eb5c6aad73767e50820a
  • Vorgänger a064deaf
  • Nachfolger 3b9a5301

$::cgi entfernt.

Verfahren:
- Für alle Vorkommen von "my $cgi = $::cgi;":
ersetzt durch my $cgi = $::request->{cgi}->new({}) ersetzt

- Wenn in einer Datei alle my $cgi rausgefallen sind auch use CGI entfernt.

- Initialisierung von $::cgi in scripts und Dispatcher entfernt und in dei
Initialisierung von $::request eingebaut.

- cgi aus der Liste der kanonischen globals genommen.

Zu CGI:
- CGI::func und CGI->func sind beides valide Werte, sind aber intern buggy wie
Hölle. CGI:: erzeugt ein Dummyobjekt mit CGI->new, und klobbert damit
cookies. CGI-> ist noch schlimmer und ruft ${CGI}->{.cookies} auf.
- CGI->new({}) ist schneller als CGI->new(''), deshalb habe ich diese version genommen.
Auf meinem Rechner schafft die erste Version etwa 32k/s, die zweite 28k/s.
- CGI kompiliert benötigte Funktionen beim ersten Aufruf über AUTOLOAD.
- cookie benötigen ein $cgi Objekt.

Unterschiede anzeigen:

bin/mozilla/vk.pl
54 54
  my $form     = $main::form;
55 55
  my %myconfig = %main::myconfig;
56 56
  my $locale   = $main::locale;
57
  my $cgi      = $main::cgi;
58 57

  
59 58
  my ($customer, $department);
60 59

  
......
100 99
    # Nichts führt, daher diese Zwischenlösung
101 100

  
102 101
    &check_name('customer', no_select => 1);
103
  
102

  
104 103
    # $form->{customer_id} wurde schon von check_name gesetzt
105 104
    $form->{customername} = $form->{customer};
106 105
  };
......
312 311

  
313 312
    if ( $subtotals2{qty} != 0 ) {
314 313
      $subtotals2{sellprice} = $subtotals2{sellprice_total} / $subtotals2{qty};
315
      $subtotals2{lastcost} = $subtotals2{lastcost_total} / $subtotals2{qty}; 
314
      $subtotals2{lastcost} = $subtotals2{lastcost_total} / $subtotals2{qty};
316 315
    } else {
317 316
      $subtotals2{sellprice} = 0;
318 317
      $subtotals2{lastcost} = 0;

Auch abrufbar als: Unified diff