From dd02d14086784af37396700c50c201a0077e7f05 Mon Sep 17 00:00:00 2001
From: scw <scw@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Wed, 7 Apr 2004 16:03:44 +0000
Subject: open output file instead of pipe.

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@1716 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 util/weather.perl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'util/weather.perl')

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
-- 
cgit v1.2.3