6 [ -z "$l" ] && l="$(rpm -qla|perl -lne 'chomp;s/$/.rpmnew/;print if -f;')"
8 base=`echo $base|sed 's/[.]rpmnew$//'`
14 if test ! -f $base-orig
16 cmp $base $base.rpmnew
17 mv -f $base.rpmnew $base
21 if diff -u $base-orig $base.rpmnew | patch -f $base
25 mv -f $base.rpmnew $base-orig
30 mv -f $base.orig $base
35 rpm -qac|perl -ne 'chomp;next if $_ eq "(contains no files)";next if m{^/var/lib/rpm/};next if ! -f $_;$o="$_-orig";next if -e $o;system "cp -i -p '\''$_'\'' '\''$o'\''" and die "$_: $!";'