Adam's little joke?

AndyArmstrong on 2007-03-16T17:08:35

From Adam Kennedy's YAML::Tiny:

	if ( $string =~ /^"((?:\\.|[^"])*)"$/ ) {
		my $str = $1;
		$str =~ s/\\"/"/g;
		$str =~ s/\\([never\\fartz]|x([0-9a-fA-F]{2}))/(length($1)>1)?pack("H2",$2):$UNESCAPES{$1}/gex;
		return $str;
	}

What, never? :)


well

rjbs on 2007-03-16T17:51:06

Hardly ever.