Parse location from pkg db entry.
authorMikko Värri <vmj@linuxbox.fi>
Tue, 27 Sep 2011 23:45:38 +0000 (02:45 +0300)
committerMikko Värri <vmj@linuxbox.fi>
Tue, 27 Sep 2011 23:45:38 +0000 (02:45 +0300)
lib/Slackware/Package.pm

index 4e0f3ab..731ef4b 100644 (file)
@@ -73,6 +73,10 @@ sub new_from_pkg_db_entry {
                 #print "$1|$2|$3\n";
                 next;
             };
+            m[^PACKAGE LOCATION: ?(.+)$] and do {
+                $self->{location} = $1;
+                next;
+            };
             m[$name_regex] and do {
                 #print "$1|$2\n";
                 next;
@@ -101,6 +105,7 @@ sub init {
         arch => 'noarch',
         build => '1',
         tag => '',
+        location => '.',
         );
 
     $self->{$_} = (exists $params{$_}
@@ -127,7 +132,7 @@ sub pkgname {
 #   my $name = $package->name;
 #   my $old_name = $package->name($new_name);
 #
-for my $attr ( qw( name version arch build tag pkg_size doc_size man_size inc_size ) ) {
+for my $attr ( qw( name version arch build tag location pkg_size doc_size man_size inc_size ) ) {
     no strict 'refs';
     *{"Slackware::Package::$attr"} = sub {
         my $self = shift;