diff options
Diffstat (limited to 'debian/perl-framework/t/htdocs/modules/cgi/ranged.pl.PL')
| -rw-r--r-- | debian/perl-framework/t/htdocs/modules/cgi/ranged.pl.PL | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/debian/perl-framework/t/htdocs/modules/cgi/ranged.pl.PL b/debian/perl-framework/t/htdocs/modules/cgi/ranged.pl.PL new file mode 100644 index 0000000..9d81f5d --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/cgi/ranged.pl.PL @@ -0,0 +1,11 @@ +use strict; + +print "Content-type: text/plain\n"; + +if ($ENV{'HTTP_RANGE'} eq 'bytes=5-10/10') { + print "Content-Range: bytes 5-10/10\n\n"; + print "hello\n"; +} else { + print "\npardon?\n"; +} + |