diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index 0e588fc081771b640526321578528bfbd7bee4d5..9800ddff0870f5a9b52420db1a8da3a0797dbb00 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{} );
 		}