Permalink
Browse files

Remove Perl5ism

  • Loading branch information...
1 parent 0b018f6 commit 68b2d847cf11f9d196c4f7b7d2f3c3d7affbfa40 @snarkyboojum committed Jun 18, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 dent
View
2 dent
@@ -4,7 +4,7 @@ use HTTP::Client;
my $url = 'http://identi.ca/api/statuses/update.xml';
my $client-name = 'perl6.denter';
-my $message = @*ARGS[0] or die "I need a message to post";
+my $message = @*ARGS[0] // die "I need a message to post";
my $credentials = slurp('.credentials').chomp;
my ($username, $password) = $credentials.split(':');

0 comments on commit 68b2d84

Please sign in to comment.