1 files changed, 4 insertions, 4 deletions
diff --git a/draco.pl b/draco.pl
index 37017f0..2107eaf 100755
--- a/draco.pl
+++ b/draco.pl
@@ -17,7 +17,7 @@ binmode(STDOUT, "encoding(UTF-8)");
 die "usage: draco [-dhv] <url>\n" unless scalar @ARGV;
 
 my $DEBUG;
-my $VERSION = "v0.3.2";
+my $VERSION = "v0.3.3";
 # Dispatch table to be parsed before url.
 my %dispatch = (
     '-v'  => sub { print "Draco $VERSION\n"; exit; },
@@ -152,7 +152,7 @@ sub get_response {
     print STDERR "." if $DEBUG and scalar @http_calls > 0;
     my $response = $http->get($url);
     push @http_calls, $url;
-    die "Unexpected response - $response->{status}: $response->{reason} : $url"
+    die "\nUnexpected response - $response->{status}: $response->{reason}\n$response->{content} : $url"
         unless $response->{success};
     return $response;
 }
@@ -372,11 +372,11 @@ sub print_comment_chain {
     }
     print ":END:\n";
 
-    print "\n#+BEGIN_SRC markdown\n",
+    print "\n#+begin_src markdown\n",
         # Break the text at 76 column & add 2 space before every new
         # line.
         "  ", $lb->break($comment_data->{body}) =~ s/\n/\n\ \ /gr, "\n",
-        "#+END_SRC\n";
+        "#+end_src\n\n";
 
     # If the comment has replies then iterate over those too.
     if (scalar $comment_data->{replies}) {