diff options
| author | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2010-05-17 10:29:38 +0000 |
|---|---|---|
| committer | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2010-05-17 10:29:38 +0000 |
| commit | 7b12d114d03bdcc7b6598e2c44819b613a8a909a (patch) | |
| tree | 579b571a08ef182c999ee76e5eda5a7646d3357a | |
| parent | 19bdc5b9873a08f171f87bcc0aa8d942219552fc (diff) | |
A more correct way to pass parameters
git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@8630 a0bf4364-ded3-4de4-8d8a-66a801d63aff
| -rw-r--r-- | xpp/perl_modules/Dahdi/Hardware/USB.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/xpp/perl_modules/Dahdi/Hardware/USB.pm b/xpp/perl_modules/Dahdi/Hardware/USB.pm index d73bdbe..edc0f4c 100644 --- a/xpp/perl_modules/Dahdi/Hardware/USB.pm +++ b/xpp/perl_modules/Dahdi/Hardware/USB.pm @@ -123,7 +123,7 @@ sub _get_attr($) { } sub _get_attr_optional($$) { - my ($attr_file, $def_val) = $@; + my ($attr_file, $def_val) = @_; eval {return _get_attr($attr_file)}; |