1#! /usr/bin/env perl 2use 5.10.0; 3use strict; 4my $args = join(' ', @ARGV); 5 6my $ret; 7if ($args eq '-Wa,-v -c -o /dev/null -x assembler /dev/null') { 8 $ret = "GNU assembler version 2.23.52.0.1 (x86_64-redhat-linux) using BFD version version 2.23.52.0.1-30.el7_1.2 20130226\n"; 9} else { 10 $ret = `gcc $args`; 11} 12print STDOUT $ret; 13