Skip to content

Instantly share code, notes, and snippets.

@notbenh
notbenh / stat for EB
Created August 4, 2009 23:59
A quick example of what the current stats for EB looklike
benh@miji bin (singlecmp)$ stat
parrot perl6 perl5
+1 solve 2 2 1
done in 2/11 8/11 10/11
benh@miji bin (singlecmp)$ stat report
parrot perl6 perl5
001 2 5 3
002 - 1 1
003 - 1 1
004 - 1 1
<html>
<head>
<script src="jquery-1.3.2.min.js" type="text/javascript" charset="utf-8"></script>
<script type="text/javascript">
function password_border_management() {
var pw1 = $('#pw1');
var pw2 = $('#pw2');
if (pw1.val() == pw2.val()
&& pw1.val().length >= 6 && pw1.val().length <= 12
#!/usr/bin/perl
use strict;
use warnings;
use Test::More qw{no_plan};
use Date::Parse;
my ($ss,$mm,$hh,$day,$month,$year,$zone) = strptime('December 2009');
is ( $day , undef, q{seems like day parse is wrong});
benh@zippy bin$ sudo -u couchdb ./couchdb
Apache CouchDB 0.11.0 (LogLevel=debug) is starting.
Configuration Settings ["/usr/local/etc/couchdb/default.ini",
"/usr/local/etc/couchdb/local.ini"]:
[attachments] compressible_types="text/* application/javascript application/json application/xml"
[attachments] compression_level="8"
[couch_httpd_auth] authentication_db="_users"
[couch_httpd_auth] require_valid_user="false"
[couchdb] batch_save_interval="1000"
[couchdb] batch_save_size="1000"
#!/usr/bin/perl
use strict;
use warnings;
use Test::Most qw{no_plan};
use Carp::Always;
#-----------------------------------------------------------------
#
Seems that describe and q{} **DO NOT** get along at all.
The following test...
<code>
package Test::Action::DescribeBareWord;
use strict;
use warnings;
use Carp::Always;
use Fennec;
Use of uninitialized value in subroutine entry at /usr/local/share/perl/5.10.1/Exporter/Declare.pm line 62.
not ok 1 - use Util::Timeout;
# Failed test 'use Util::Timeout;'
# at /opt/git/site/tests/t/Util/Timeout.t line 15.
# Tried to use 'Util::Timeout'.
# Error: Could not find sub '1' in Exporter::Declare for export at /view/bin/Util/Timeout.pm line 4
# BEGIN failed--compilation aborted at /view/bin/Util/Timeout.pm line 4.
# Compilation failed in require at (eval 16) line 2.
# BEGIN failed--compilation aborted at (eval 16) line 2.
not ok 2 - main->can(...)
@notbenh
notbenh / proto and qw{} do not play nice with each other?
Created October 8, 2010 20:19
test to illustrate that qw{} is a list
#!/usr/bin/perl
use strict;
use warnings;
use Test::Most qw{no_plan};
sub some ($$;$) { \@_ }
sub many (@) { \@_ }
eq_or_diff(
some(1,qw{2 3}),
[1..3],
@notbenh
notbenh / Love spam ... about CPAN?
Created November 9, 2010 15:49
I just got some spam because of my cpan profile?
from Susan Wilson <susanwilson963@att.net>
to
date Tue, Nov 9, 2010 at 07:45
subject Hello my dear
signed-by att.net
How are you doing today ? I hope you are doing fine .
I am a cheerful, sociable and sincere girl. Young, pretty without bad habits. My friends say that I'm a glamorous and interesting girl.
@notbenh
notbenh / redis 2.2.0rc1
Created December 15, 2010 18:10
gmake fails for me on solaris with gmake 3.80
sierra ben /home/ben/src/antirez-redis-c349494/src> gmake --version
GNU Make 3.80
Copyright (C) 2002 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.
There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A
PARTICULAR PURPOSE.
sierra ben /home/ben/src/antirez-redis-c349494/src> gmake
cd ../deps/hiredis && gmake static ARCH=""
gmake[1]: Entering directory `/home/ben/src/antirez-redis-c349494/deps/hiredis'
Makefile:17: Extraneous text after `else' directive