diff options
author | Arne Schwabe <arne@rfc2549.org> | 2017-12-28 00:30:40 +0100 |
---|---|---|
committer | Arne Schwabe <arne@rfc2549.org> | 2017-12-28 00:30:40 +0100 |
commit | 2b2dee6586048e62d066a3ea7b761649828b3aff (patch) | |
tree | e4afa9c4e225cf808a179dac57be769f63c60d4d /main/lzo/util/shortf.pl | |
parent | b14d9bdfa98b85b9f836d73fbcfc65582a92184a (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.pl | 30 |
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); |