diff options
| author | Christian Pointner <equinox@helsinki.at> | 2014-01-08 15:23:24 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2014-01-08 15:23:24 (GMT) |
| commit | 5f7cf0cd06cf32bc39b91193f939891e36df17fc (patch) | |
| tree | 3a2fc2f2d9e60031cfcc78589d61bdeef9714387 /rhimport.pm | |
| parent | bb7cbbea0b5f68e0c87b85692faabc5dd056f17b (diff) | |
fixed usage of uinitialized variable
Diffstat (limited to 'rhimport.pm')
| -rw-r--r-- | rhimport.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rhimport.pm b/rhimport.pm index b8823ba..fa816e5 100644 --- a/rhimport.pm +++ b/rhimport.pm @@ -343,7 +343,8 @@ sub delete_file sub pv_add_note { my ( $title, $text, $id, $date, $type, $index ) = @_; - my @script = ('/usr/bin/ssh', 'root@intranet', 'addnote', $id, $date, $type, $index ); + my @script = ('/usr/bin/ssh', 'root@intranet', 'addnote', $id, $date, $type); + push(@script , $index) unless (!defined $index); my ($reader, $writer, $error ) = ( new IO::Handle, new IO::Handle, new IO::Handle ); $writer->autoflush(1); |