diff options
| author | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2010-05-17 10:32:14 +0000 |
|---|---|---|
| committer | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2010-05-17 10:32:14 +0000 |
| commit | a88e7b3d362cad5c461a5e868438a806152f50df (patch) | |
| tree | ca835e6e1cbbaa2c23c233a52869008ec85d59f3 | |
| parent | fe4c2fa585e02e9eaa352de0bd297967fd351cd9 (diff) | |
A more correct way to pass parameters
Merged revisions 8630 via svnmerge from
http://svn.digium.com/svn/dahdi/tools/trunk
........
git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/branches/2.3@8631 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)}; |