Merge pull request #12 from BlueT/master

Check $self->origin and set $self->secure(1) only if $self->origin is present in Request.pm
vti · Oct 23, 2012 · 2bf2d21 · 2bf2d21
2 parents 89134a1 + 8e9f15b
commit 2bf2d21
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Protocol/WebSocket/Request.pm b/lib/Protocol/WebSocket/Request.pm
@@ -372,7 +372,9 @@ sub _finalize {
     #return unless $origin;
     $self->origin($origin);
 
-    $self->secure(1) if $self->origin =~ m{^https:};
+    if (defined $self->origin) {
+        $self->secure(1) if $self->origin =~ m{^https:};
+    }
 
     my $host = $self->field('Host');
     return unless $host;