From 3dd47cd5bba00f960058c802f13a05c60dc22080 Mon Sep 17 00:00:00 2001
From: Ryan Voots <simcop2387@simcop2387.info>
Date: Mon, 9 Aug 2010 23:51:15 -0400
Subject: [PATCH] wtf

---
 plugins/utf8.pm | 0
 1 file changed, 0 insertions(+), 0 deletions(-)
 mode change 100644 => 120000 plugins/utf8.pm

diff --git a/plugins/utf8.pm b/plugins/utf8.pm
deleted file mode 100644
index 96f70f7..0000000
--- a/plugins/utf8.pm
+++ /dev/null
@@ -1,58 +0,0 @@
-# ------------------------
-# Originally by Mauke at: http://mauke.ath.cx/stuff/perl/unip
-# ------------------------
-
-use Unicode::UCD 'charinfo';
-use Encode qw/decode encode_utf8/;
-use utf8;
-use strict;
-
-sub speng {
-	my $x = shift;
-
-	$x =~ /^0[0-7]+\z/ and return oct $x;
-
-	$x =~ /^(?:[Uu]\+?|0[Xx])([[:xdigit:]]+)\z/ || (
-			length($x) > 1 && $x =~ /^([[:xdigit:]]*[A-Fa-f][[:xdigit:]]*)\z/
-			) and return hex $1;
-
-	$x =~ /^[0-9]+\z/ and return $x;
-
-	return map ord, split //, $x
-}
-
-sub unip {
-	my @pieces = @_;
-	my (@out, @err);
-	for (@pieces) {
-		my $chr = chr;
-		my $utf8 = join ' ', unpack '(H2)*', encode_utf8 $chr;
-		my $x;
-		unless ($x = charinfo $_) {
-			push @err, sprintf "U+%X (%s): no match found", $_, $utf8;
-			next;
-		}
-		push @out, "U+$x->{code} ($utf8): $x->{name} [$chr]";
-	}
-
-	\@err, \@out
-}
-
-# ------------------------
-no warnings 'void';
-
-sub {
-	my( $said, $pm ) = @_;
-
-	utf8::decode( $said->{body} );
-
-	my ($err, $out) = unip map speng($_), split " ", $said->{body};
-
-	utf8::upgrade( $_ ) for @$err, @$out;
-
-	print "Error: @$err\n" if @$err;
-	print "@$out\n";
-}
-
-__DATA__
-unicode U+2301; returns the unicode character and associated information given either a unicode character or one of the various ways you can specify a code point.
diff --git a/plugins/utf8.pm b/plugins/utf8.pm
new file mode 120000
index 0000000..96f70f7
--- /dev/null
+++ b/plugins/utf8.pm
@@ -0,0 +1,58 @@
+# ------------------------
+# Originally by Mauke at: http://mauke.ath.cx/stuff/perl/unip
+# ------------------------
+
+use Unicode::UCD 'charinfo';
+use Encode qw/decode encode_utf8/;
+use utf8;
+use strict;
+
+sub speng {
+	my $x = shift;
+
+	$x =~ /^0[0-7]+\z/ and return oct $x;
+
+	$x =~ /^(?:[Uu]\+?|0[Xx])([[:xdigit:]]+)\z/ || (
+			length($x) > 1 && $x =~ /^([[:xdigit:]]*[A-Fa-f][[:xdigit:]]*)\z/
+			) and return hex $1;
+
+	$x =~ /^[0-9]+\z/ and return $x;
+
+	return map ord, split //, $x
+}
+
+sub unip {
+	my @pieces = @_;
+	my (@out, @err);
+	for (@pieces) {
+		my $chr = chr;
+		my $utf8 = join ' ', unpack '(H2)*', encode_utf8 $chr;
+		my $x;
+		unless ($x = charinfo $_) {
+			push @err, sprintf "U+%X (%s): no match found", $_, $utf8;
+			next;
+		}
+		push @out, "U+$x->{code} ($utf8): $x->{name} [$chr]";
+	}
+
+	\@err, \@out
+}
+
+# ------------------------
+no warnings 'void';
+
+sub {
+	my( $said, $pm ) = @_;
+
+	utf8::decode( $said->{body} );
+
+	my ($err, $out) = unip map speng($_), split " ", $said->{body};
+
+	utf8::upgrade( $_ ) for @$err, @$out;
+
+	print "Error: @$err\n" if @$err;
+	print "@$out\n";
+}
+
+__DATA__
+unicode U+2301; returns the unicode character and associated information given either a unicode character or one of the various ways you can specify a code point.