Changeset 34599 for platform

Timestamp:

07/24/09 12:32:51 (4 years ago)

Author:

kazuho

Message:

user our instead of my

Files:

• platform/mysql/mprofile/trunk/mpdump (modified) (2 diffs)

platform/mysql/mprofile/trunk/mpdump

@@ -9 +9 @@
 use Time::HiRes qw(sleep);
 
-my $dbi;
-my $user = 'root';
-my $password;
-my $host;
-my $port;
-my $mysql_socket;
+our $dbi;
+our $user = 'root';
+our $password;
+our $host;
+our $port;
+our $mysql_socket;
 
-my $samples = 1000;
-my $interval = 0.1;
-my $help;
+our $samples = 1000;
+our $interval = 0.1;
+our $help;
 
 GetOptions(
@@ -60 +60 @@
     $dbi = 'DBI:mysql(mysql_enable_utf8=>1):database=mysql';
     for my $n (qw/user password host port mysql_socket/) {
-        my $v = eval("\$$n");
-        $dbi .= ";$n=$v"
-            if $v;
+        no strict qw(refs);
+        $dbi .= ";$n=$$n"
+            if $$n;
     }
 }