diff options
| author | Denis Barbier <barbier> | 2004-03-02 21:25:12 +0000 |
|---|---|---|
| committer | Denis Barbier <barbier> | 2004-03-02 21:25:12 +0000 |
| commit | 7e8e87d1808db108202e85d7cdd5b194234c9087 (patch) | |
| tree | 8481c1f4fb97a48e77626881b2d71acdc5517dff /Perl/Webwml | |
| parent | 0391977bda33f5c5b3bd7795a2f6c9d4fc3b2530 (diff) | |
Fix $check setting in read() [Martin Quinson]
CVS version numbers
Perl/Webwml/L10n/Db.pm: 1.14 -> 1.15
Diffstat (limited to 'Perl/Webwml')
| -rw-r--r-- | Perl/Webwml/L10n/Db.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Perl/Webwml/L10n/Db.pm b/Perl/Webwml/L10n/Db.pm index 32453a8743e..29a333975c5 100644 --- a/Perl/Webwml/L10n/Db.pm +++ b/Perl/Webwml/L10n/Db.pm @@ -150,8 +150,9 @@ Read database from a given file. Returns 1 on success and otherwise 0. sub read { my $self = shift; my $file = shift; - my $check = shift || 1; - + my $check = shift; + $check = 1 unless defined $check; + if ($file =~ m/\.gz$/) { open (DB,"gzip -dc $file |") || return 0; } else { |