Revision 7274f9c8
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1009 | 1009 |
|
| 1010 | 1010 |
my $error = ""; |
| 1011 | 1011 |
|
| 1012 |
if (open(TEMPLATE, ">$filename")) {
|
|
| 1012 |
if (open(TEMPLATE, ">", $filename)) {
|
|
| 1013 | 1013 |
$content = Encode::encode('utf-8-strict', $content) if $::locale->is_utf8;
|
| 1014 | 1014 |
$content =~ s/\r\n/\n/g; |
| 1015 | 1015 |
print(TEMPLATE $content); |
Auch abrufbar als: Unified diff
Alle 2-arg open in 3-arg open verwandelt.