non-numeric room version check update in remaining places

Author: FrenchGithubUser

lib/SyTest/Federation/AuthChecks.pm

@@ -108,8 +108,9 @@ sub _creator_for_create_event
 
    my $room_version = $create_event->{content}{room_version};
 
-   # For room version 11+, 'creator' is absent from content, we use sender.
-   if( defined $room_version and $room_version =~ /\A[0-9]+\z/ and $room_version >= 11 ) {
+   # For room version 11+ (or unstable/non-numeric versions), 'creator' is absent
+   # from content; use sender instead.
+   if( defined $room_version && ( $room_version !~ /\A[0-9]+\z/ || $room_version >= 11 ) ) {
       return $create_event->{sender};
    }
 

lib/SyTest/Federation/Room.pm

@@ -183,9 +183,10 @@ sub create_initial_events
    my $create_content = {
       defined( $room_version ) ? ( room_version => $room_version ) : (),
    };
-   # Default to old 'creator' field unless room version is a numeric integer >= 11.
+   # Default to old 'creator' field if no room version is specified, or room version is
+   # a numeric value <11. Non-numeric (unstable) versions are treated as 11+.
    $create_content->{creator} = $creator
-      unless defined( $room_version ) && $room_version =~ /\A[0-9]+\z/ && $room_version >= 11;
+      unless defined( $room_version ) && ( $room_version !~ /\A[0-9]+\z/ || $room_version >= 11 );
 
    $self->create_and_insert_event(
       type => "m.room.create",

tests/30rooms/01state.pl

@@ -34,7 +34,7 @@
 
          my $content = $event->{content};
          my $room_version = $content->{room_version} // "1";
-         if( $room_version =~ /\A[0-9]+\z/ && $room_version >= 11 ) {
+         if( $room_version !~ /\A[0-9]+\z/ || $room_version >= 11 ) {
             # Room version 11+: 'creator' must be absent from content.
             exists $content->{creator} and
                die "Expected no 'creator' key in content for room version $room_version";