From ed006a8eb44831189e152826c692330d0a0cfe3b Mon Sep 17 00:00:00 2001
From: Manuel Traut <manut@mecka.net>
Date: Mon, 18 Jul 2011 14:00:12 +0200
Subject: delete beagle-dir

Signed-off-by: Manuel Traut <manut@mecka.net>
---
 beagle/debian-rfs/usr/bin/debconf-escape | 47 --------------------------------
 1 file changed, 47 deletions(-)
 delete mode 100755 beagle/debian-rfs/usr/bin/debconf-escape

(limited to 'beagle/debian-rfs/usr/bin/debconf-escape')

diff --git a/beagle/debian-rfs/usr/bin/debconf-escape b/beagle/debian-rfs/usr/bin/debconf-escape
deleted file mode 100755
index fdff906..0000000
--- a/beagle/debian-rfs/usr/bin/debconf-escape
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-use strict;
-use Getopt::Long;
-
-use vars qw($escape $unescape);
-
-sub usage {
-	print STDERR <<EOF;
-Usage: debconf-unescape -e|-u < input-text
-  -e, --escape      escape text
-  -u, --unescape    unescape text
-
-Exactly one of -e or -u must be used.
-EOF
-	exit(1);
-}
-
-$escape=0;
-$unescape=0;
-
-GetOptions(
-	"escape|e" => \$escape,
-	"unescape|u" => \$unescape,
-) || usage();
-
-if ($escape == $unescape) {
-	usage();
-}
-
-if ($escape) {
-	while (<>) {
-		s/\\/\\\\/g;
-		s/\n/\\n/g;
-		print;
-	}
-} else {
-	while (<>) {
-		for (split /(\\.)/) {
-			s/\\(.)/$1 eq "n" ? "\n" : $1/eg;
-			print;
-		}
-	}
-}
-
-- 
cgit v1.2.3