- Timestamp:
- 2014-12-08T15:42:16+13:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/package-kits/linux/perllib/Greenstone/Package/_rpm.pm
r29546 r29559 10 10 my $array = shift; 11 11 return join ", ", @{$array}; 12 } 13 14 sub replacement { 15 my ($self, $var) = @_; 16 if ($var eq 'FILES') { 17 return join "\n", @{$self->{config}->{$var}}; 18 } 19 return $self->SUPER::replacement ($var); 12 20 } 13 21
Note:
See TracChangeset
for help on using the changeset viewer.