Revision b95c5658
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Template/Plugin/T8.pm | ||
|---|---|---|
| 6 | 6 |
my $cached_instance; |
| 7 | 7 |
|
| 8 | 8 |
sub new {
|
| 9 |
my ($class) = shift;
|
|
| 9 |
my ($class) = @_;
|
|
| 10 | 10 |
|
| 11 | 11 |
return $cached_instance ||= $class->SUPER::new(@_); |
| 12 | 12 |
} |
| bin/mozilla/is.pl | ||
|---|---|---|
| 473 | 473 |
|
| 474 | 474 |
$main::auth->assert('invoice_edit');
|
| 475 | 475 |
|
| 476 |
my ($recursive_call) = shift;
|
|
| 476 |
my ($recursive_call) = @_;
|
|
| 477 | 477 |
|
| 478 | 478 |
$form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate}) unless $recursive_call;
|
| 479 | 479 |
|
| bin/mozilla/oe.pl | ||
|---|---|---|
| 516 | 516 |
sub update {
|
| 517 | 517 |
$main::lxdebug->enter_sub(); |
| 518 | 518 |
|
| 519 |
my ($recursive_call) = shift;
|
|
| 519 |
my ($recursive_call) = @_;
|
|
| 520 | 520 |
|
| 521 | 521 |
my $form = $main::form; |
| 522 | 522 |
my %myconfig = %main::myconfig; |
Auch abrufbar als: Unified diff
Konstruktue "my ($foo) = shift" durch eindeutigere Konstrukte ersetzt