#!/usr/bin/perl

# Fixes Blender's bad header for RGBA targa's
# (changes the 18th byte from 0x00 to 0x08).

# Usage: perl tgapatch.pl blenderfile.tga

open(F, '+<', $ARGV[0]) or die "\nCant open $ARGV[0]: $!";
binmode(F);
seek(F,17,0);
print F chr(010);
close(F)