Changeset 44 for trunk

Timestamp:

02/24/06 16:13:39 (19 years ago)

Author:

kdeugau

Message:

/trunk

Bugfixing %files list now. A bare "/etc" (for instance) would
not *quite* get mispackaged, but it would generate Perl
"undefined" errors.

File:

• trunk/debbuild (modified) (1 diff)

trunk/debbuild

@@ -682 +682 @@
     foreach my $pkgfile (@pkgfilelist) {
       $pkgfile = expandmacros($pkgfile, 'gp');
-      my @filepath = ($pkgfile =~ m|(.+)/([^/]+)$|);
-      qx { mkdir -p $buildroot/$pkg$filepath[0] }
-        if $filepath[0] ne '';
-      qx { mv $buildroot$pkgfile $buildroot/$pkg$filepath[0] };
+      my ($fpath,$fname) = ($pkgfile =~ m|(.+?/?)?([^/]+)$|);   # We don't need $fname now, but we might.
+      qx { mkdir -p $buildroot/$pkg$fpath }
+        if $fpath && $fpath ne '';
+      qx { mv $buildroot$pkgfile $buildroot/$pkg$fpath };
     }