From 80e51e2a3e53bae0c33f8556a37feaa706d34bf6 Mon Sep 17 00:00:00 2001
From: "perlancar (@pc-office)" <perlancar@gmail.com>
Date: Tue, 28 Oct 2014 17:13:58 +0700
Subject: [PATCH] See only content when status is 2xx, not just 200

---
 lib/Perinci/Result/Format.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Perinci/Result/Format.pm b/lib/Perinci/Result/Format.pm
index bdf1544..276f6d7 100644
--- a/lib/Perinci/Result/Format.pm
+++ b/lib/Perinci/Result/Format.pm
@@ -12,7 +12,7 @@ our $Enable_Decoration = 1;
 our $Enable_Cleansing  = 0;
 
 # text formats are special. since they are more oriented towards human instead
-# of machine, we remove envelope when status is 200, so users only see content.
+# of machine, we remove envelope when status is 2xx, so users only see content.
 
 # XXX color theme?
 
@@ -89,7 +89,7 @@ my $format_text = sub {
     };
 
     if (!defined($res->[2])) {
-        my $out = $res->[0] =~ /\A(?:200|304)\z/ ? "" : $print_err->($res);
+        my $out = $res->[0] =~ /\A(?:2..|304)\z/ ? "" : $print_err->($res);
         my $max = 30;
         my $i = 0;
         my $prev = $res;
@@ -106,7 +106,7 @@ my $format_text = sub {
         return $out;
     }
     my ($r, $opts);
-    if ($res->[0] == 200) {
+    if ($res->[0] =~ /\A2../) {
         $r = $res->[2];
         my $rfo = $res->[3]{result_format_options} // {};
         # old compat, rfo used to be only opts, now it's {fmt=>opts, ...}