Skip to content

Commit 9b62a61

Browse files
srchulosrchulo
committed
moved _clear call in handle_request to end of subroutine
1 parent 2dfabdd commit 9b62a61

File tree

11 files changed

+2722
-86
lines changed

11 files changed

+2722
-86
lines changed

‎Changes

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -66,3 +66,7 @@ Revision history for jQuery-File-Upload
6666
0.16
6767

6868
added to documentation for the data subroutine about using catalyst context object to store data
69+
70+
0.17
71+
72+
moved _clear call in handle_request to end of subroutine

‎Changes~

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -62,3 +62,7 @@ Revision history for jQuery-File-Upload
6262
0.15
6363

6464
fixed bug
65+
66+
0.16
67+
68+
added to documentation for the data subroutine about using catalyst context object to store data

‎MYMETA.json

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
"Adam Hopkins <srchulo@cpan.org>"
55
],
66
"dynamic_config" : 0,
7-
"generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112150",
7+
"generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921",
88
"license" : [
99
"unknown"
1010
],
@@ -22,28 +22,28 @@
2222
"prereqs" : {
2323
"build" : {
2424
"requires" : {
25-
"Test::More" : 0
25+
"Test::More" : "0"
2626
}
2727
},
2828
"configure" : {
2929
"requires" : {
30-
"ExtUtils::MakeMaker" : 0
30+
"ExtUtils::MakeMaker" : "0"
3131
}
3232
},
3333
"runtime" : {
3434
"requires" : {
35-
"CGI" : 0,
36-
"Cwd" : 0,
37-
"Digest::MD5" : 0,
38-
"Image::Magick" : 0,
39-
"JSON::XS" : 0,
40-
"Net::SSH2" : 0,
41-
"Net::SSH2::SFTP" : 0,
42-
"URI" : 0,
35+
"CGI" : "0",
36+
"Cwd" : "0",
37+
"Digest::MD5" : "0",
38+
"Image::Magick" : "0",
39+
"JSON::XS" : "0",
40+
"Net::SSH2" : "0",
41+
"Net::SSH2::SFTP" : "0",
42+
"URI" : "0",
4343
"perl" : "5.006"
4444
}
4545
}
4646
},
4747
"release_status" : "stable",
48-
"version" : "0.16"
48+
"version" : "0.17"
4949
}

‎MYMETA.yml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ build_requires:
77
configure_requires:
88
ExtUtils::MakeMaker: 0
99
dynamic_config: 0
10-
generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112150'
10+
generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921'
1111
license: unknown
1212
meta-spec:
1313
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -27,4 +27,4 @@ requires:
2727
Net::SSH2::SFTP: 0
2828
URI: 0
2929
perl: 5.006
30-
version: 0.16
30+
version: 0.17

‎Makefile

Lines changed: 49 additions & 49 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
# This Makefile is for the jQuery::File::Upload extension to perl.
22
#
33
# It was generated automatically by MakeMaker version
4-
# 6.62 (Revision: 66200) from the contents of
4+
# 6.6302 (Revision: 66302) from the contents of
55
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
66
#
77
# ANY CHANGES MADE HERE WILL BE LOST!
@@ -19,7 +19,7 @@
1919
# MIN_PERL_VERSION => q[5.006]
2020
# NAME => q[jQuery::File::Upload]
2121
# PL_FILES => { }
22-
# PREREQ_PM => { URI=>q[0], JSON::XS=>q[0], Image::Magick=>q[0], CGI=>q[0], Test::More=>q[0], Net::SSH2::SFTP=>q[0], Digest::MD5=>q[0], Cwd=>q[0], Net::SSH2=>q[0] }
22+
# PREREQ_PM => { URI=>q[0], JSON::XS=>q[0], Image::Magick=>q[0], CGI=>q[0], Test::More=>q[0], Net::SSH2::SFTP=>q[0], Digest::MD5=>q[0], Net::SSH2=>q[0], Cwd=>q[0] }
2323
# VERSION_FROM => q[lib/jQuery/File/Upload.pm]
2424
# clean => { FILES=>q[jQuery-File-Upload-*] }
2525
# dist => { COMPRESS=>q[gzip -9f], SUFFIX=>q[gz] }
@@ -29,30 +29,30 @@
2929

3030
# --- MakeMaker const_config section:
3131

32-
# These definitions are from config.sh (via /System/Library/Perl/5.12/darwin-thread-multi-2level/Config.pm).
32+
# These definitions are from config.sh (via /System/Library/Perl/5.16/darwin-thread-multi-2level/Config.pm).
3333
# They may have been overridden via Makefile.PL or on the command line.
3434
AR = ar
35-
CC = clang
35+
CC = cc
3636
CCCDLFLAGS =
3737
CCDLFLAGS =
3838
DLEXT = bundle
3939
DLSRC = dl_dlopen.xs
4040
EXE_EXT =
4141
FULL_AR = /usr/bin/ar
42-
LD = clang -mmacosx-version-min=10.8
43-
LDDLFLAGS = -arch i386 -arch x86_64 -bundle -undefined dynamic_lookup -L/usr/local/lib -fstack-protector
44-
LDFLAGS = -arch i386 -arch x86_64 -fstack-protector -L/usr/local/lib
42+
LD = cc -mmacosx-version-min=10.9
43+
LDDLFLAGS = -arch x86_64 -arch i386 -bundle -undefined dynamic_lookup -L/usr/local/lib -fstack-protector
44+
LDFLAGS = -arch x86_64 -arch i386 -fstack-protector -L/usr/local/lib
4545
LIBC =
4646
LIB_EXT = .a
4747
OBJ_EXT = .o
4848
OSNAME = darwin
49-
OSVERS = 12.0
49+
OSVERS = 13.0
5050
RANLIB = /usr/bin/ar s
51-
SITELIBEXP = /Library/Perl/5.12
52-
SITEARCHEXP = /Library/Perl/5.12/darwin-thread-multi-2level
51+
SITELIBEXP = /Library/Perl/5.16
52+
SITEARCHEXP = /Library/Perl/5.16/darwin-thread-multi-2level
5353
SO = dylib
54-
VENDORARCHEXP = /Network/Library/Perl/5.12/darwin-thread-multi-2level
55-
VENDORLIBEXP = /Network/Library/Perl/5.12
54+
VENDORARCHEXP = /Network/Library/Perl/5.16/darwin-thread-multi-2level
55+
VENDORLIBEXP = /Network/Library/Perl/5.16
5656

5757

5858
# --- MakeMaker constants section:
@@ -61,11 +61,11 @@ DIRFILESEP = /
6161
DFSEP = $(DIRFILESEP)
6262
NAME = jQuery::File::Upload
6363
NAME_SYM = jQuery_File_Upload
64-
VERSION = 0.16
64+
VERSION = 0.17
6565
VERSION_MACRO = VERSION
66-
VERSION_SYM = 0_16
66+
VERSION_SYM = 0_17
6767
DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
68-
XS_VERSION = 0.16
68+
XS_VERSION = 0.17
6969
XS_VERSION_MACRO = XS_VERSION
7070
XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
7171
INST_ARCHLIB = blib/arch
@@ -82,17 +82,17 @@ PREFIX = $(SITEPREFIX)
8282
PERLPREFIX = /
8383
SITEPREFIX = /usr/local
8484
VENDORPREFIX = /usr/local
85-
INSTALLPRIVLIB = /Library/Perl/Updates/5.12.4
85+
INSTALLPRIVLIB = /Library/Perl/Updates/5.16.2
8686
DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
87-
INSTALLSITELIB = /Library/Perl/5.12
87+
INSTALLSITELIB = /Library/Perl/5.16
8888
DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
89-
INSTALLVENDORLIB = /Network/Library/Perl/5.12
89+
INSTALLVENDORLIB = /Network/Library/Perl/5.16
9090
DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
91-
INSTALLARCHLIB = /Library/Perl/Updates/5.12.4/darwin-thread-multi-2level
91+
INSTALLARCHLIB = /Library/Perl/Updates/5.16.2/darwin-thread-multi-2level
9292
DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
93-
INSTALLSITEARCH = /Library/Perl/5.12/darwin-thread-multi-2level
93+
INSTALLSITEARCH = /Library/Perl/5.16/darwin-thread-multi-2level
9494
DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
95-
INSTALLVENDORARCH = /Network/Library/Perl/5.12/darwin-thread-multi-2level
95+
INSTALLVENDORARCH = /Network/Library/Perl/5.16/darwin-thread-multi-2level
9696
DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
9797
INSTALLBIN = /usr/bin
9898
DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
@@ -118,14 +118,14 @@ INSTALLSITEMAN3DIR = /usr/local/share/man/man3
118118
DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
119119
INSTALLVENDORMAN3DIR = /usr/local/share/man/man3
120120
DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
121-
PERL_LIB = /System/Library/Perl/5.12
122-
PERL_ARCHLIB = /System/Library/Perl/5.12/darwin-thread-multi-2level
121+
PERL_LIB = /System/Library/Perl/5.16
122+
PERL_ARCHLIB = /System/Library/Perl/5.16/darwin-thread-multi-2level
123123
LIBPERL_A = libperl.a
124124
FIRST_MAKEFILE = Makefile
125125
MAKEFILE_OLD = Makefile.old
126126
MAKE_APERL_FILE = Makefile.aperl
127127
PERLMAINCC = $(CC)
128-
PERL_INC = /System/Library/Perl/5.12/darwin-thread-multi-2level/CORE
128+
PERL_INC = /System/Library/Perl/5.16/darwin-thread-multi-2level/CORE
129129
PERL = /usr/bin/perl
130130
FULLPERL = /usr/bin/perl
131131
ABSPERL = $(PERL)
@@ -140,9 +140,9 @@ PERM_DIR = 755
140140
PERM_RW = 644
141141
PERM_RWX = 755
142142

143-
MAKEMAKER = /Library/Perl/Updates/5.12.4/ExtUtils/MakeMaker.pm
144-
MM_VERSION = 6.62
145-
MM_REVISION = 66200
143+
MAKEMAKER = /System/Library/Perl/5.16/ExtUtils/MakeMaker.pm
144+
MM_VERSION = 6.6302
145+
MM_REVISION = 66302
146146

147147
# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
148148
# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
@@ -197,13 +197,13 @@ PM_TO_BLIB = lib/jQuery/File/.DS_Store \
197197

198198

199199
# --- MakeMaker platform_constants section:
200-
MM_Unix_VERSION = 6.62
200+
MM_Unix_VERSION = 6.6302
201201
PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
202202

203203

204204
# --- MakeMaker tool_autosplit section:
205205
# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
206-
AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)' --
206+
AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$$$ARGV[0], $$$$ARGV[1], 0, 1, 1)' --
207207

208208

209209

@@ -262,7 +262,7 @@ RCS_LABEL = rcs -Nv$(VERSION_SYM): -q
262262
DIST_CP = best
263263
DIST_DEFAULT = tardist
264264
DISTNAME = jQuery-File-Upload
265-
DISTVNAME = jQuery-File-Upload-0.16
265+
DISTVNAME = jQuery-File-Upload-0.17
266266

267267

268268
# --- MakeMaker macro section:
@@ -491,7 +491,7 @@ metafile : create_distdir
491491
$(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml
492492
$(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml
493493
$(NOECHO) $(ECHO) 'dynamic_config: 1' >> META_new.yml
494-
$(NOECHO) $(ECHO) 'generated_by: '\''ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112150'\''' >> META_new.yml
494+
$(NOECHO) $(ECHO) 'generated_by: '\''ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921'\''' >> META_new.yml
495495
$(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml
496496
$(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml
497497
$(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml
@@ -511,7 +511,7 @@ metafile : create_distdir
511511
$(NOECHO) $(ECHO) ' Net::SSH2::SFTP: 0' >> META_new.yml
512512
$(NOECHO) $(ECHO) ' URI: 0' >> META_new.yml
513513
$(NOECHO) $(ECHO) ' perl: 5.006' >> META_new.yml
514-
$(NOECHO) $(ECHO) 'version: 0.16' >> META_new.yml
514+
$(NOECHO) $(ECHO) 'version: 0.17' >> META_new.yml
515515
-$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml
516516
$(NOECHO) $(ECHO) Generating META.json
517517
$(NOECHO) $(ECHO) '{' > META_new.json
@@ -520,7 +520,7 @@ metafile : create_distdir
520520
$(NOECHO) $(ECHO) ' "Adam Hopkins <srchulo@cpan.org>"' >> META_new.json
521521
$(NOECHO) $(ECHO) ' ],' >> META_new.json
522522
$(NOECHO) $(ECHO) ' "dynamic_config" : 1,' >> META_new.json
523-
$(NOECHO) $(ECHO) ' "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112150",' >> META_new.json
523+
$(NOECHO) $(ECHO) ' "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921",' >> META_new.json
524524
$(NOECHO) $(ECHO) ' "license" : [' >> META_new.json
525525
$(NOECHO) $(ECHO) ' "unknown"' >> META_new.json
526526
$(NOECHO) $(ECHO) ' ],' >> META_new.json
@@ -538,30 +538,30 @@ metafile : create_distdir
538538
$(NOECHO) $(ECHO) ' "prereqs" : {' >> META_new.json
539539
$(NOECHO) $(ECHO) ' "build" : {' >> META_new.json
540540
$(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json
541-
$(NOECHO) $(ECHO) ' "Test::More" : 0' >> META_new.json
541+
$(NOECHO) $(ECHO) ' "Test::More" : "0"' >> META_new.json
542542
$(NOECHO) $(ECHO) ' }' >> META_new.json
543543
$(NOECHO) $(ECHO) ' },' >> META_new.json
544544
$(NOECHO) $(ECHO) ' "configure" : {' >> META_new.json
545545
$(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json
546-
$(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : 0' >> META_new.json
546+
$(NOECHO) $(ECHO) ' "ExtUtils::MakeMaker" : "0"' >> META_new.json
547547
$(NOECHO) $(ECHO) ' }' >> META_new.json
548548
$(NOECHO) $(ECHO) ' },' >> META_new.json
549549
$(NOECHO) $(ECHO) ' "runtime" : {' >> META_new.json
550550
$(NOECHO) $(ECHO) ' "requires" : {' >> META_new.json
551-
$(NOECHO) $(ECHO) ' "CGI" : 0,' >> META_new.json
552-
$(NOECHO) $(ECHO) ' "Cwd" : 0,' >> META_new.json
553-
$(NOECHO) $(ECHO) ' "Digest::MD5" : 0,' >> META_new.json
554-
$(NOECHO) $(ECHO) ' "Image::Magick" : 0,' >> META_new.json
555-
$(NOECHO) $(ECHO) ' "JSON::XS" : 0,' >> META_new.json
556-
$(NOECHO) $(ECHO) ' "Net::SSH2" : 0,' >> META_new.json
557-
$(NOECHO) $(ECHO) ' "Net::SSH2::SFTP" : 0,' >> META_new.json
558-
$(NOECHO) $(ECHO) ' "URI" : 0,' >> META_new.json
551+
$(NOECHO) $(ECHO) ' "CGI" : "0",' >> META_new.json
552+
$(NOECHO) $(ECHO) ' "Cwd" : "0",' >> META_new.json
553+
$(NOECHO) $(ECHO) ' "Digest::MD5" : "0",' >> META_new.json
554+
$(NOECHO) $(ECHO) ' "Image::Magick" : "0",' >> META_new.json
555+
$(NOECHO) $(ECHO) ' "JSON::XS" : "0",' >> META_new.json
556+
$(NOECHO) $(ECHO) ' "Net::SSH2" : "0",' >> META_new.json
557+
$(NOECHO) $(ECHO) ' "Net::SSH2::SFTP" : "0",' >> META_new.json
558+
$(NOECHO) $(ECHO) ' "URI" : "0",' >> META_new.json
559559
$(NOECHO) $(ECHO) ' "perl" : "5.006"' >> META_new.json
560560
$(NOECHO) $(ECHO) ' }' >> META_new.json
561561
$(NOECHO) $(ECHO) ' }' >> META_new.json
562562
$(NOECHO) $(ECHO) ' },' >> META_new.json
563563
$(NOECHO) $(ECHO) ' "release_status" : "stable",' >> META_new.json
564-
$(NOECHO) $(ECHO) ' "version" : "0.16"' >> META_new.json
564+
$(NOECHO) $(ECHO) ' "version" : "0.17"' >> META_new.json
565565
$(NOECHO) $(ECHO) '}' >> META_new.json
566566
-$(NOECHO) $(MV) META_new.json $(DISTVNAME)/META.json
567567

@@ -657,17 +657,17 @@ ci :
657657
distmeta : create_distdir metafile
658658
$(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -e q{META.yml};' \
659659
-e 'eval { maniadd({q{META.yml} => q{Module YAML meta-data (added by MakeMaker)}}) }' \
660-
-e ' or print "Could not add META.yml to MANIFEST: $${'\''@'\''}\n"' --
660+
-e ' or print "Could not add META.yml to MANIFEST: $$$${'\''@'\''}\n"' --
661661
$(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -f q{META.json};' \
662662
-e 'eval { maniadd({q{META.json} => q{Module JSON meta-data (added by MakeMaker)}}) }' \
663-
-e ' or print "Could not add META.json to MANIFEST: $${'\''@'\''}\n"' --
663+
-e ' or print "Could not add META.json to MANIFEST: $$$${'\''@'\''}\n"' --
664664

665665

666666

667667
# --- MakeMaker distsignature section:
668668
distsignature : create_distdir
669669
$(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \
670-
-e ' or print "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}\n"' --
670+
-e ' or print "Could not add SIGNATURE to MANIFEST: $$$${'\''@'\''}\n"' --
671671
$(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE
672672
cd $(DISTVNAME) && cpansign -s
673673

@@ -857,7 +857,7 @@ testdb_static :: testdb_dynamic
857857
# --- MakeMaker ppd section:
858858
# Creates a PPD (Perl Package Description) for a binary distribution.
859859
ppd :
860-
$(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="0.16">' > $(DISTNAME).ppd
860+
$(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="$(VERSION)">' > $(DISTNAME).ppd
861861
$(NOECHO) $(ECHO) ' <ABSTRACT>Server-side solution for the L&lt;jQuery File Upload|https://github.com/blueimp/jQuery-File-Upload/&gt; plugin.</ABSTRACT>' >> $(DISTNAME).ppd
862862
$(NOECHO) $(ECHO) ' <AUTHOR>Adam Hopkins &lt;srchulo@cpan.org&gt;</AUTHOR>' >> $(DISTNAME).ppd
863863
$(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> $(DISTNAME).ppd
@@ -870,7 +870,7 @@ ppd :
870870
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Net::SSH2" />' >> $(DISTNAME).ppd
871871
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Net::SSH2::SFTP" />' >> $(DISTNAME).ppd
872872
$(NOECHO) $(ECHO) ' <REQUIRE NAME="URI::" />' >> $(DISTNAME).ppd
873-
$(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="darwin-thread-multi-2level-5.12" />' >> $(DISTNAME).ppd
873+
$(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="darwin-thread-multi-2level-5.16" />' >> $(DISTNAME).ppd
874874
$(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> $(DISTNAME).ppd
875875
$(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> $(DISTNAME).ppd
876876
$(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd

‎blib/lib/jQuery/File/Upload.pm

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ use URI;
1616
#use LWP::UserAgent;
1717
#use LWP::Protocol::https;
1818

19-
our $VERSION = '0.16';
19+
our $VERSION = '0.17';
2020

2121
my %errors = (
2222
'_validate_max_file_size' => 'File is too big',
@@ -677,7 +677,7 @@ sub print_response {
677677
sub handle_request {
678678
my $self = shift;
679679
my ($print) = @_;
680-
$self->_clear;
680+
681681
my $method = $self->_get_request_method;
682682

683683
if($method eq 'GET') {
@@ -701,6 +701,7 @@ sub handle_request {
701701
}
702702

703703
$self->print_response if $print;
704+
$self->_clear;
704705
}
705706

706707
sub generate_output {

0 commit comments

Comments
 (0)