view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

test_install:
	@cd speedy && $(MAKE) test_install $(PASTHRU)
' .
$test_install_extra .
'

mydist: README README.html lib/CGI/SpeedyCGI.pm readable tardist

readable:
	chown -R $(USER) .
	chmod -R u+w,go-w,go+r .

README: src/SpeedyCGI.pm
	cd src && $(PERL) -e "use Pod::Text; pod2text(-80)" <SpeedyCGI.pm >../README

README.html: src/SpeedyCGI.pm
	cd src && pod2html SpeedyCGI.pm >../README.html && $(RM_F) pod2h*

lib/CGI/SpeedyCGI.pm: src/SpeedyCGI.pm
	$(MKPATH) lib/CGI
	$(CP) src/SpeedyCGI.pm lib/CGI/SpeedyCGI.pm

speedy/t/chdir.t  view on Meta::CPAN

&doit(2, $BOTH);
&doit(1, $DIR);
&doit(2, $BOTH, "/tmp");

chdir $start;
my $TMPDIR = "/tmp/unreadable$$";
mkdir $TMPDIR, 0777;
mkdir "$TMPDIR/x", 0777;
chdir "$TMPDIR/x";
chmod 0333, $TMPDIR;
&doit(2, $PIDS);
&doit(2, $BOTH, "/tmp");

chdir "$TMPDIR/x";
chmod 0, ".";
&doit(2, $PIDS);
&doit(3, $BOTH, "/tmp");

rmdir "$TMPDIR/x";
rmdir $TMPDIR;

speedy/t/sh_bang.t  view on Meta::CPAN

my $tmp = "/tmp/sh_bang.$$";

print "1..2\n";

open(F, ">$tmp") || die;
print F "#!$ENV{SPEEDY} -w -- -t5 -r2\nprint ++\$x; \$x = \$x;\n";
close(F);
sleep 1;
chmod 0755, $tmp;

my @nums = map {`$tmp`} (0..3);
sleep 1;
unlink($tmp);

my $failed = 0;
for (my $i = 0; $i < 4; ++$i) {
    if ($nums[$i] != ($i % 2) + 1) {
	$failed++;
	last;