Revision 76c486e3
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/Locale.pm | ||
|---|---|---|
| 42 | 42 |
use SL::Common; |
| 43 | 43 |
use SL::Inifile; |
| 44 | 44 |
|
| 45 |
use strict; |
|
| 46 |
|
|
| 45 | 47 |
sub new {
|
| 46 | 48 |
$main::lxdebug->enter_sub(); |
| 47 | 49 |
|
| ... | ... | |
| 229 | 231 |
my $longdate = ""; |
| 230 | 232 |
my $longmonth = ($longformat) ? 'LONG_MONTH' : 'SHORT_MONTH'; |
| 231 | 233 |
|
| 234 |
my ($spc, $yy, $mm, $dd); |
|
| 235 |
|
|
| 232 | 236 |
if ($date) {
|
| 233 | 237 |
|
| 234 | 238 |
# get separator |
| ... | ... | |
| 302 | 306 |
$main::lxdebug->enter_sub(); |
| 303 | 307 |
|
| 304 | 308 |
my ($self, $myconfig, $date, $longformat) = @_; |
| 309 |
my ($spc, $yy, $mm, $dd); |
|
| 305 | 310 |
|
| 306 | 311 |
unless ($date) {
|
| 307 | 312 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Und wieder ein Schwung strict.