From 0e2b90b0454b6986878d50a52289b2e96b9ac309 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 24 Sep 2015 20:39:29 +0200
Subject: fix defined-check for $info

---
 lib/Travel/Status/DE/HAFAS.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index 0e588fc..9800ddf 100644
--- a/lib/Travel/Status/DE/HAFAS.pm
+++ b/lib/Travel/Status/DE/HAFAS.pm
@@ -311,10 +311,10 @@ sub results {
 		# " " -> no additional data, rest (if any) is delay reason
 		# else -> first word is not a delay reason but additional data,
 		# for instance "Zusatzfahrt/Ersatzfahrt" for a replacement train
-		if ( $info and $info eq q{ } ) {
+		if ( defined $info and $info eq q{ } ) {
 			$info = undef;
 		}
-		elsif ( substr( $info, 0, 1 ) eq q{ } ) {
+		elsif ( defined $info and substr( $info, 0, 1 ) eq q{ } ) {
 			substr( $info, 0, 1, q{} );
 		}
 
-- 
cgit v1.2.3