Commit 77777eb1 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

->direction: Compute direction if necessary

parent c849a88b
Loading
Loading
Loading
Loading
+6 −0
Original line number Diff line number Diff line
@@ -102,6 +102,12 @@ sub errstr {
sub direction {
	my ($self) = @_;

	if ( not exists $self->{direction} ) {

		# direction is set while parsing wagons
		$self->wagons;
	}

	return $self->{direction};
}