crypt関数の使用可否によって処理を振り分けたくて、以下のようなコードを書きました。

# crypt関数使用可否チェック
undef $check_crypt;
$check_crypt = eval { crypt('1111', '11'); 1; }; # ここが23行目
if ($@) { $check_crypt = 2; }

if ($check_crypt == 1) { crypt関数が使える時の処理 }
elsif ($check_crypt == 2) { crypt関数が使えない時の処理 }
else { 不明な時の処理 }


これを、-wオプション付で構文チェックすると

Useless use of a constant in void context at c:\www\〜\xxx.cgi line 23.

と注意されたのですが、どこが問題なんでしょうか？
このままでも使用に問題は無いのですが、少し気になるので・・。
よろしくお願いします。