summaryrefslogtreecommitdiff
path: root/main/lzo/util/shortf.pl
diff options
context:
space:
mode:
authorArne Schwabe <arne@rfc2549.org>2017-12-28 00:30:40 +0100
committerArne Schwabe <arne@rfc2549.org>2017-12-28 00:30:40 +0100
commit2b2dee6586048e62d066a3ea7b761649828b3aff (patch)
treee4afa9c4e225cf808a179dac57be769f63c60d4d /main/lzo/util/shortf.pl
parentb14d9bdfa98b85b9f836d73fbcfc65582a92184a (diff)
Add OpenVPN3 to build, change build system to cmake
Diffstat (limited to 'main/lzo/util/shortf.pl')
-rw-r--r--main/lzo/util/shortf.pl30
1 files changed, 0 insertions, 30 deletions
diff --git a/main/lzo/util/shortf.pl b/main/lzo/util/shortf.pl
deleted file mode 100644
index 500eb450..00000000
--- a/main/lzo/util/shortf.pl
+++ /dev/null
@@ -1,30 +0,0 @@
-#! /usr/bin/perl
-## vim:set ts=4 sw=4 et: -*- coding: utf-8 -*-
-##
-##---------------------------------------------------------------------------##
-##
-## Author:
-## Markus F.X.J. Oberhumer <markus@oberhumer.com>
-##
-## Description:
-## Create short files for compression test
-##
-## Copyright (C) 1996-2017 Markus Franz Xaver Johannes Oberhumer
-##
-##---------------------------------------------------------------------------##
-
-$c = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
-$c = "\x00\x01\x02";
-$c = "\x00";
-
-$x = $c x 1024;
-
-for $i (0 .. 50) {
- $name = sprintf("f%04d.dat",$i);
- open(OUTFILE,">$name") || die "$0: cannot open '$name': $!";
- binmode(OUTFILE);
- print OUTFILE substr($x,0,$i);
- close(OUTFILE);
-}
-
-exit(0);