Merge pull request #97 from sanbeg/master

fix to perl sampling code
statsd · Jun 26, 2012 · 97888e6 · 97888e6
2 parents bd82637 + 74131c8
commit 97888e6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/examples/Etsy/StatsD.pm b/examples/Etsy/StatsD.pm
@@ -99,7 +99,7 @@ sub send {
 
 	my $sampled_data;
 	if ( defined($sample_rate) and $sample_rate < 1 ){
-		while (my($stat,$value) = each %$sampled_data) {
+		while (my($stat,$value) = each %$data) {
 			$sampled_data->{$stat} = "$value|\@$sample_rate" if rand() <= $sample_rate;
 		}
 	} else {
@@ -124,4 +124,4 @@ Steve Sanbeg L<http://www.buzzfeed.com/stv>
 
 =cut
 
-1;
+1;