diff options
author | Parménides GV <parmegv@sdf.org> | 2014-12-15 16:22:58 +0100 |
---|---|---|
committer | Parménides GV <parmegv@sdf.org> | 2014-12-15 16:22:58 +0100 |
commit | 18fef7c99aa36b3e5622b3865f36d78d0879e92d (patch) | |
tree | 7a04fc87318d5008bbc1f1ac145ebb505bb5238c /ics-openvpn-stripped/main/lzo/util/shortf.pl | |
parent | 56fe0400b8983ce57112ed5a0f993985a87741c0 (diff) | |
parent | 33c5958a18599267820f73b151d8161d83f93d88 (diff) |
Merge branch 'research/Test-on-Android-5-#6543' into develop
Diffstat (limited to 'ics-openvpn-stripped/main/lzo/util/shortf.pl')
-rw-r--r-- | ics-openvpn-stripped/main/lzo/util/shortf.pl | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/ics-openvpn-stripped/main/lzo/util/shortf.pl b/ics-openvpn-stripped/main/lzo/util/shortf.pl deleted file mode 100644 index 3e447cdd..00000000 --- a/ics-openvpn-stripped/main/lzo/util/shortf.pl +++ /dev/null @@ -1,31 +0,0 @@ -#! /usr/bin/perl -## -## vi:ts=4 -## -##---------------------------------------------------------------------------## -## -## Author: -## Markus F.X.J. Oberhumer <markus@oberhumer.com> -## -## Description: -## Create short files for compression test -## -## Copyright (C) 1996-2014 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); |