#!/usr/bin/perl -w

# fp2subc doesn't return exit status, viewable with shell $?, which makes make not stop on error

use strict;

my $str = `fp2subc @ARGV`;

print $str;
if ($str =~ m/^(.*\n)?E:/) {
    exit 1;
}