Add a test for the wrong version number in a record

[openssl.git] / util / TLSProxy / Record.pm

diff --git a/util/TLSProxy/Record.pm b/util/TLSProxy/Record.pm
index 106fa7414a4b5668cb25c7d8719a70816f2960fe..a4e7adcf8248698472a8b7d17f955145b532d8fa 100644 (file)
--- a/util/TLSProxy/Record.pm
+++ b/util/TLSProxy/Record.pm
@@ -278,11 +278,6 @@ sub content_type
     my $self = shift;
     return $self->{content_type};
 }
-sub version
-{
-    my $self = shift;
-    return $self->{version};
-}
 sub sslv2
 {
     my $self = shift;
@@ -332,4 +327,12 @@ sub len
     }
     return $self->{len};
 }
+sub version
+{
+    my $self = shift;
+    if (@_) {
+      $self->{version} = shift;
+    }
+    return $self->{version};
+}
 1;