summaryrefslogtreecommitdiff
path: root/app/lzo/util/uncompr.pl
diff options
context:
space:
mode:
authorParménides GV <parmegv@sdf.org>2015-06-05 00:02:09 +0200
committerParménides GV <parmegv@sdf.org>2015-06-05 00:02:09 +0200
commit8d39fbdb4980c95268249f21f3c6b8e36b22cf90 (patch)
tree5e54d8cc7ea06fdcf1aa88fd7fd54ec569a8b7a3 /app/lzo/util/uncompr.pl
parent8dc4f58d96892fbfd83094fb85b1d17656035290 (diff)
parent3e849c7cbe847d9260dee7a29b241c8aef185f6d (diff)
Merge branch 'feature/Update-ics-openvpn-from-GitHub-#7087' into develop
Diffstat (limited to 'app/lzo/util/uncompr.pl')
-rw-r--r--app/lzo/util/uncompr.pl32
1 files changed, 0 insertions, 32 deletions
diff --git a/app/lzo/util/uncompr.pl b/app/lzo/util/uncompr.pl
deleted file mode 100644
index 54ec9e06..00000000
--- a/app/lzo/util/uncompr.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-#! /usr/bin/perl
-##
-## vi:ts=4
-##
-##---------------------------------------------------------------------------##
-##
-## Author:
-## Markus F.X.J. Oberhumer <markus@oberhumer.com>
-##
-## Description:
-## Create incompressible files for compression test
-##
-## Copyright (C) 1996-2014 Markus Franz Xaver Johannes Oberhumer
-##
-##---------------------------------------------------------------------------##
-
-$x = ' ' x 65536;
-$i = 0;
-while ($i < 65536) {
- substr($x,$i,1) = pack('C',rand(256));
- $i++;
-}
-
-for $i (1,2,4,8,16,32,64) {
- $name = sprintf("u%04d.dat",$i);
- open(OUTFILE,">$name") || die "$0: cannot open '$name': $!";
- binmode(OUTFILE);
- print OUTFILE substr($x,0,$i*1024);
- close(OUTFILE);
-}
-
-exit(0);