sub openOsmFile {
	$fileName = shift ;

	if (grep /.bz2/, $fileName) { $isBz2 = 1 ; } else { $isBz2 = 0 ; }

	if ($isBz2) {
		$bz = bzopen($fileName, "rb") or die "Cannot open $fileName: $bzerrno\n" ;
	}
	else {
		open ($file, "<", $fileName) || die "can't open osm file" ;
	}

	nextLine() ;		
	while ( ! (grep /node/, $line) ) {
		nextLine() ;		 #<<<---- Zeile 139
	}
	return 1 ;
}
...
sub nextLine {
	if ($isBz2) {
		$bz->bzreadline($line) ;
	}
	else {
		$line = <$file> ;
	}
}