Perl script to strip newline at end of files.

noeolfile

#!/usr/bin/perl

## Strips the newline from the end of a file.
# This is important because we cant have newlines after the pw hash.
# Run this on a file before committing.

use autodie qw(open sysseek sysread truncate);

my $file = shift;
open my $fh, '+>>', $file;
my $pos = tell $fh;
sysseek $fh, $pos - 1, 0;
sysread $fh, my $buf, 1 or die 'No data to read?';

if($buf eq "\n"){
    truncate $fh, $pos - 1;
}

What's wrong with chomp ?

Or use 'echo -n "XXXX"'?