gt; -Original Message-
> From: Wiggins d Anconia [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, May 05, 2004 5:35 PM
> To: Aviram, Shy; [EMAIL PROTECTED] - Sharing Perl Questions; Perl
> (E-mail); Layani, Roger
> Subject: Re: Problem changing the content of a file
>
>
&
esday, May 05, 2004 5:35 PM
To: Aviram, Shy; [EMAIL PROTECTED] - Sharing Perl Questions; Perl
(E-mail); Layani, Roger
Subject: Re: Problem changing the content of a file
Please don't cross post...
>
> The code:
> sub mkrelease_dot_h{
> $devlabel = shift (@_);
> $file = shift (
/danconia.org
> Roger Layani
> -Original Message-
> From: Wiggins d Anconia [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, May 05, 2004 5:35 PM
> To: Aviram, Shy; [EMAIL PROTECTED] - Sharing Perl Questions; Perl
> (E-mail); Layani, Roger
> Subject: Re: Problem chan
Please don't cross post...
>
> The code:
> sub mkrelease_dot_h{
> $devlabel = shift (@_);
> $file = shift (@_);
Why are these not lexically scoped (my'd)?
> my ($major,$minor,$patch,$build) = ExtractRelease($devlabel);
> my ($month,$day,$year) = GetCurrentDate();
> chomp($year);
>
> open(REL
The code:
sub mkrelease_dot_h{
$devlabel = shift (@_);
$file = shift (@_);
my ($major,$minor,$patch,$build) = ExtractRelease($devlabel);
my ($month,$day,$year) = GetCurrentDate();
chomp($year);
open(RELFILE,"$file") || die ("error opening file \"$file\"");
$string = "\"$major.$minor.$patch.$build
