Can this be simplified with less variables?
sub rcsname {
my $file = shift;
(my $rcsfile = $file) =~ s{somepattern}{andsubstitution};
return $rcsfile;
}
### remember that the original arguement CANNOT be affected.
Nikola Janceski
I have great faith in fools; My friends call it self-confidence.
-- Edgar Allen Poe
----------------------------------------------------------------------------
--------------------
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
