From f0382850a6961a3d300049b6d4171ba30e52598b Mon Sep 17 00:00:00 2001 From: Marc Espie Date: Sat, 5 May 2007 10:50:05 +0000 Subject: ditch extra param to copy_subst, now that it's constant. --- usr.sbin/pkg_add/pkg_create | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'usr.sbin') diff --git a/usr.sbin/pkg_add/pkg_create b/usr.sbin/pkg_add/pkg_create index 31a25ef6159..628fbe689b6 100644 --- a/usr.sbin/pkg_add/pkg_create +++ b/usr.sbin/pkg_add/pkg_create @@ -1,6 +1,6 @@ #! /usr/bin/perl # ex:ts=8 sw=4: -# $OpenBSD: pkg_create,v 1.92 2007/05/05 10:48:39 espie Exp $ +# $OpenBSD: pkg_create,v 1.93 2007/05/05 10:50:04 espie Exp $ # # Copyright (c) 2003-2007 Marc Espie # @@ -332,8 +332,8 @@ sub copy_subst_fh } sub copy_subst { - my ($srcname, $mode, $destname) = @_; - open my $dest, $mode, $destname or die "can't open $destname"; + my ($srcname, $destname) = @_; + open my $dest, '>', $destname or die "can't open $destname"; copy_subst_fh($srcname, $dest); } @@ -423,7 +423,7 @@ sub add_special_file my ($plist, $name, $infodir, $opt) = @_; if (defined $opt) { OpenBSD::PackingElement::File->add($plist, $name); - copy_subst($opt, '>', $infodir.$name) if defined $infodir; + copy_subst($opt, $infodir.$name) if defined $infodir; } } -- cgit v1.2.3