#!/usr/bin/perl

###########################################################################
# teste Verhalten sysopen() mit 0x1A

# VARs
my $file = 'testfile';
###########################################################################
use strict;
use Fcntl qw(:DEFAULT :flock);

# Schreibe genau 1 Byte in die Datei
sysopen(OUT, $file, O_RDWR|O_CREAT) or die $!;
seek OUT, 0, 0;
truncate OUT, 0;
binmode OUT;
print OUT pack "C*", 0x1A;
close OUT;

# Testen der Dateilänge
my @stats = stat($file);
printf qq(Dateilaenge nach Schreiben: %u Byte\n), $stats[7];

# Datei nur öffnen mit sysopen(), nix weiter
sysopen(OUT, $file, O_RDWR|O_CREAT) or die $!;
close OUT;

# Testen der Dateilänge
@stats = stat($file);
printf qq(Dateilaenge nach sysopen: %u Byte\n), $stats[7];