From owner-freebsd-questions@FreeBSD.ORG  Sun Apr  8 17:51:01 2007
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
X-Original-To: freebsd-questions@freebsd.org
Delivered-To: freebsd-questions@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [69.147.83.52])
	by hub.freebsd.org (Postfix) with ESMTP id EEC0216A401
	for <freebsd-questions@freebsd.org>;
	Sun,  8 Apr 2007 17:51:01 +0000 (UTC)
	(envelope-from keramida@ceid.upatras.gr)
Received: from igloo.linux.gr (igloo.linux.gr [62.1.205.36])
	by mx1.freebsd.org (Postfix) with ESMTP id 5787D13C458
	for <freebsd-questions@freebsd.org>;
	Sun,  8 Apr 2007 17:51:00 +0000 (UTC)
	(envelope-from keramida@ceid.upatras.gr)
Received: from kobe.laptop (dialup5.ach.sch.gr [81.186.70.5])
	(authenticated bits=128)
	by igloo.linux.gr (8.13.8/8.13.8/Debian-3) with ESMTP id l38HoIZr030320
	(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NOT);
	Sun, 8 Apr 2007 20:50:31 +0300
Received: from kobe.laptop (kobe.laptop [127.0.0.1])
	by kobe.laptop (8.13.8/8.13.8) with ESMTP id l38HoGuc001707;
	Sun, 8 Apr 2007 20:50:17 +0300 (EEST)
	(envelope-from keramida@ceid.upatras.gr)
Received: (from keramida@localhost)
	by kobe.laptop (8.13.8/8.13.8/Submit) id l38HoEUi001706;
	Sun, 8 Apr 2007 20:50:14 +0300 (EEST)
	(envelope-from keramida@ceid.upatras.gr)
Date: Sun, 8 Apr 2007 20:50:14 +0300
From: Giorgos Keramidas <keramida@ceid.upatras.gr>
To: Garrett Cooper <youshi10@u.washington.edu>
Message-ID: <20070408175014.GA1672@kobe.laptop>
References: <4617B954.7010507@steelbox.org>
	<20070407171120.GA70957@kobe.laptop>
	<4618B887.4030709@steelbox.org> <46191814.5080807@u.washington.edu>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <46191814.5080807@u.washington.edu>
X-Hellug-MailScanner: Found to be clean
X-Hellug-MailScanner-SpamCheck: not spam, SpamAssassin (not cached,
	score=-3.689, required 5, autolearn=not spam, ALL_TRUSTED -1.80,
	AWL 0.51, BAYES_00 -2.60, DNS_FROM_RFC_ABUSE 0.20)
X-Hellug-MailScanner-From: keramida@ceid.upatras.gr
X-Spam-Status: No
Cc: freebsd-questions@freebsd.org
Subject: Re: script perl with sed command
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: User questions <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sun, 08 Apr 2007 17:51:02 -0000

On 2007-04-08 09:28, Garrett Cooper <youshi10@u.washington.edu> wrote:
> Olivier Regnier wrote:
> The file has to exist that you're trying to modify, otherwise it'll give
> up :). Permissions issue?
> 
> Better to do that section may be:
> 
>      my $tmpsupfile;
>      my $supfile = "/etc/standard-supfile";
>      my $newhost = "cvsup.fr.freebsd.org";
> 
>      if (!defined($supfile) || !defined($newhost)) {
>          return undef;
>      }
> 
>      $tmpsupfile = new File::Temp();
>      die "$!" unless(defined($tmpsupfile);
>      open(SUP, "$supfile") or die "$!";

Ah, much better, thanks :)