Itsa me, quake3io!

code/unix/Cons_gcc.pm

@@ -1,47 +1,47 @@
-#
-# Some utilities to handle gcc compiler setup
-#
-
-package Cons_gcc;
-
-# pass the compiler name
-# returns an array, first element is 2 for 2.x 3 for 3.x, then full version, then machine info
-sub get_gcc_version
-{
-  my @ret;
-  my ($CC) = @_;
-  my $version=`$CC --version | head -1`;
-  chop($version);
-  my $machine=`$CC -dumpmachine`;
-  chop($machine);
-  if($version =~ '2\.[0-9]*\.[0-9]*')
-  {
-    push @ret, '2';
-  } else {
-    push @ret, '3';
-  }
-  push @ret, $version;
-  push @ret, $machine;
-  return @ret;
-}
-
-# http://ccache.samba.org/
-# check ccache existence and path
-# returns an array, first element 0 / 1, then path
-sub get_ccache
-{
-  my @ret;  
-  $ccache_path=`which ccache`;
-  chop($ccache_path);
-  if(-x $ccache_path)
-  {
-    push @ret, '1';
-    push @ret, $ccache_path;
-    return @ret;
-  }
-  push @ret, '0';
-  return @ret;
-}
-
-# close package
-1;
+#
+# Some utilities to handle gcc compiler setup
+#
+
+package Cons_gcc;
+
+# pass the compiler name
+# returns an array, first element is 2 for 2.x 3 for 3.x, then full version, then machine info
+sub get_gcc_version
+{
+  my @ret;
+  my ($CC) = @_;
+  my $version=`$CC --version | head -1`;
+  chop($version);
+  my $machine=`$CC -dumpmachine`;
+  chop($machine);
+  if($version =~ '2\.[0-9]*\.[0-9]*')
+  {
+    push @ret, '2';
+  } else {
+    push @ret, '3';
+  }
+  push @ret, $version;
+  push @ret, $machine;
+  return @ret;
+}
+
+# http://ccache.samba.org/
+# check ccache existence and path
+# returns an array, first element 0 / 1, then path
+sub get_ccache
+{
+  my @ret;  
+  $ccache_path=`which ccache`;
+  chop($ccache_path);
+  if(-x $ccache_path)
+  {
+    push @ret, '1';
+    push @ret, $ccache_path;
+    return @ret;
+  }
+  push @ret, '0';
+  return @ret;
+}
+
+# close package
+1;