diff options
| -rw-r--r-- | util/weather.perl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/util/weather.perl b/util/weather.perl index 690c84fa..0c3ce208 100644 --- a/util/weather.perl +++ b/util/weather.perl @@ -16,7 +16,7 @@ weather_report('etc/weather.tomorrow', 'ftp://ftpsv.cwb.gov.tw/pub/forecast/W003 sub weather_report { my ($file, $link) = @_; - open(BBSPOST, "| $file"); + open(BBSPOST, "> $file"); # Header # ¤º®e |