Don't mean to point out the obvious, but just in case you aren't against re-coding slightly or have different reasons for trying to do this that the others might not notice, I want to at least point out the fact that this might be better done via arguments to c():

&a;
&b;

sub a {
   my $var = 1;
   &c($var);
}
sub b {
   my $var = 2;
   &c($var);
}

sub c {
   my $var = shift;
   print "var=$var\n";
}
[download]

Generally you either want to scope something globally (or at least within the block that these functions will operate), or pass things as arguments and return values between your functions. Sorry if you're already aware of this and have other needs for using local/my variables in a pseudo-global capacity. Just wanted to get this out there.

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.