diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-09 15:22:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-09 15:22:28 +0000 |
| commit | b5905a0ab6ffbcfe0e61f17bed255ea0cd59efbc (patch) | |
| tree | 75860b18c56f7a876f0cec17c68656f2eabf5f8b | |
| parent | 5e208d80a61a7e1b74b8a8626c78bc66c311c93e (diff) | |
| download | perl-MDK-Common-b5905a0ab6ffbcfe0e61f17bed255ea0cd59efbc.tar perl-MDK-Common-b5905a0ab6ffbcfe0e61f17bed255ea0cd59efbc.tar.gz perl-MDK-Common-b5905a0ab6ffbcfe0e61f17bed255ea0cd59efbc.tar.bz2 perl-MDK-Common-b5905a0ab6ffbcfe0e61f17bed255ea0cd59efbc.tar.xz perl-MDK-Common-b5905a0ab6ffbcfe0e61f17bed255ea0cd59efbc.zip | |
perl_checker compliance
| -rw-r--r-- | MDK/Common/System.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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})) { |