make depriciation warning

[cloudstore.git] / lib / CloudStore / API.pm

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index 1b2625d..05fcbeb 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -14,7 +14,7 @@ use Carp qw(confess cluck);
 sub new {
        my ($class,$slice) = @_;
 
-       cluck "DEPRICIATED $slice specified" if $slice;
+       warn "## DEPRICIATED $slice specified" if $slice;
 
        my $self = {
                passwd => '/var/lib/extrausers/passwd',