From owner-freebsd-commit Tue Feb 13 14:35:28 1996 Return-Path: owner-commit Received: (from root@localhost) by freefall.freebsd.org (8.7.3/8.7.3) id OAA13659 for freebsd-commit-outgoing; Tue, 13 Feb 1996 14:35:28 -0800 (PST) Received: (from root@localhost) by freefall.freebsd.org (8.7.3/8.7.3) id OAA13645 for cvs-all-outgoing; Tue, 13 Feb 1996 14:35:20 -0800 (PST) Received: (from root@localhost) by freefall.freebsd.org (8.7.3/8.7.3) id OAA13634 for cvs-gnu-outgoing; Tue, 13 Feb 1996 14:35:17 -0800 (PST) Received: from irz301.inf.tu-dresden.de (irz301.inf.tu-dresden.de [141.76.1.11]) by freefall.freebsd.org (8.7.3/8.7.3) with SMTP id OAA13622 Tue, 13 Feb 1996 14:35:06 -0800 (PST) Received: from sax.sax.de by irz301.inf.tu-dresden.de (8.6.12/8.6.12-s1) with ESMTP id XAA06308; Tue, 13 Feb 1996 23:35:01 +0100 Received: by sax.sax.de (8.6.11/8.6.12-s1) with UUCP id XAA18849; Tue, 13 Feb 1996 23:35:00 +0100 Received: (from j@localhost) by uriah.heep.sax.de (8.7.3/8.6.9) id XAA05878; Tue, 13 Feb 1996 23:22:32 +0100 (MET) From: J Wunsch Message-Id: <199602132222.XAA05878@uriah.heep.sax.de> Subject: Re: cvs commit: src/gnu/usr.bin/perl/lib gethostname.pl Makefile To: kashmir@umiacs.UMD.EDU (Mike Grupenhoff) Date: Tue, 13 Feb 1996 23:22:31 +0100 (MET) Cc: CVS-committers@freefall.freebsd.org, cvs-gnu@freefall.freebsd.org Reply-To: joerg_wunsch@uriah.heep.sax.de (Joerg Wunsch) In-Reply-To: from "Mike Grupenhoff" at Feb 13, 96 11:40:11 am X-Phone: +49-351-2012 669 X-Mailer: ELM [version 2.4 PL23] MIME-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit Sender: owner-commit@FreeBSD.ORG Precedence: bulk As Mike Grupenhoff wrote: > > > > > > require "gethostname.pl"; > > > > $thishost = &gethostname'gethostname; > > Perhaps you should just name the sub "main'gethostname", so calls would > simply be > > require 'gethostname.pl'; > $thishost = &gethostname; I though ``package main;'' is reserved for the base source file? -- cheers, J"org joerg_wunsch@uriah.heep.sax.de -- http://www.sax.de/~joerg/ -- NIC: JW11-RIPE Never trust an operating system you don't have sources for. ;-)