From b5905a0ab6ffbcfe0e61f17bed255ea0cd59efbc Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 9 Jan 2004 15:22:28 +0000 Subject: perl_checker compliance --- MDK/Common/System.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'MDK/Common/System.pm') diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index d8fa388..e4f5476 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -292,7 +292,7 @@ sub unix2dos { local $_ = $_[0]; s/\015$//mg; s/$/\015/mg; $_ } sub whereis_binary { my ($prog) = @_; if ($prog =~ m!/!) { - warn "don't call whereis_binary with a name containing a \"/\" (the culprit is: $prog)\n"; + warn qq(don't call whereis_binary with a name containing a "/" (the culprit is: $prog)\n); return; } foreach (split(':', $ENV{PATH})) { -- cgit v1.2.1