Parent Directory | Revision Log | Patch
revision 1.3 by jlenton, Wed Apr 9 19:59:22 2003 UTC | revision 1.4 by jlenton, Wed Apr 9 23:52:49 2003 UTC | |
---|---|---|
# | Line 29 sub new | Line 29 sub new |
29 | return $self; | return $self; |
30 | } | } |
31 | ||
32 | sub free | sub location |
33 | { | { |
34 | my $self = shift; | my $self = shift; |
35 | $self->parent->remove($self); | my $location = shift; |
36 | ||
37 | $self->{LOCATION} = $location | |
38 | if defined $location; | |
39 | ||
40 | return $self->{LOCATION} or ''; | |
41 | } | } |
42 | ||
43 | sub code | sub code |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |