#!/usr/bin/perl
use warnings; use strict;

# Create a file which makes dar segfault when restoring

my $path = "ThisFileCrashesDarOnRestore";
my $mtime = 9223372036854775807;
my $atime = $mtime;

die "You must run this on a 64-bit machine\ndied"
  unless ($mtime > 0xFFFFFFFF);

unlink $path;
open(F, ">$path") || die "$path:$!";
print F "This is Arbitrary Data.\n";
close F;
utime($atime, $mtime, $path) or die "utime: $!\n";

system "set -x; ls -l $path";
exit 0;