1#!/usr/bin/perl -w 2# ----------------------------------------------------------------------------- 3 4use strict; 5use lib ($0 =~ m|^(.*/)| ? $1 : "."); 6use LibGsfTest; 7 8&message ("Warnings about things that might affect tests."); 9 10my $HOME = $ENV{'HOME'}; 11 12# ---------------------------------------- 13 14print STDERR "Warning: you have a ~/.valgrindrc file that might affect tests.\n" 15 if defined ($HOME) && -r "$HOME/.valgrindrc"; 16 17# ---------------------------------------- 18 19print STDERR "Pass\n"; 20