percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 13:40:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

Explicit setter for filename.

Browse Source
This commit is contained in:
Brian Fraser
2012-01-10 14:16:44 -03:00
parent 5ad1bc4fbb
commit 13210d1978
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Diskstats.pm
View File

@@ -198,11 +198,15 @@ sub set_device_regex {
} }
sub filename { sub filename {
my ( $self ) = @_;
return $self->{filename};
}
sub set_filename {
my ( $self, $new_filename ) = @_; my ( $self, $new_filename ) = @_;
if ( $new_filename ) { if ( $new_filename ) {
return $self->{filename} = $new_filename; return $self->{filename} = $new_filename;
} }
return $self->{filename};
} }
sub block_size { sub block_size {

2
t/lib/Diskstats.t
View File

@@ -346,7 +346,7 @@ for my $test (
is($got, $expected, "$method: $filename with an extra TS at the top"); is($got, $expected, "$method: $filename with an extra TS at the top");
$obj->filename( $file_with_trunk ); $obj->set_filename( $file_with_trunk );
$got = output( $got = output(
sub { sub {
$obj->$method(); $obj->$method();