From 88f55d9c57dde914a29ad08cd00bed6d121e1d7c Mon Sep 17 00:00:00 2001
From: andre <andregeissler@posteo.de>
Date: Wed, 22 Jan 2025 11:48:08 +0100
Subject: [PATCH] Perl_tinyca/CA.pm aktualisiert

---
 Perl_tinyca/CA.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Perl_tinyca/CA.pm b/Perl_tinyca/CA.pm
index f63db38..98b4b58 100644
--- a/Perl_tinyca/CA.pm
+++ b/Perl_tinyca/CA.pm
@@ -52,6 +52,8 @@ sub new {
          next if $ca eq ".";
          next if $ca eq "..";
          next if $ca eq "tmp";
+### ArG 12.09.2023
+         if ( $ca eq "CONET_CA2" and $ENV{'TERM'} =~ /^screen/ ) { next; }
 
          my $dir = $self->{'init'}->{'basedir'}."/".$ca;
          next unless -d $dir;