| … | |
… | |
| 15 | # |
15 | # |
| 16 | # You should have received a copy of the GNU General Public License |
16 | # You should have received a copy of the GNU General Public License |
| 17 | # along with gvpe; if not, write to the Free Software |
17 | # along with gvpe; if not, write to the Free Software |
| 18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
| 19 | |
19 | |
| 20 | our $VERSION = '1.2'; |
20 | our $VERSION = '1.21'; |
| 21 | |
21 | |
| 22 | use strict; |
22 | use strict; |
| 23 | |
23 | |
| 24 | use Storable; |
24 | use Storable; |
| 25 | use List::Util qw(max); |
25 | use List::Util qw(max); |
| … | |
… | |
| 381 | system "pngcrush", "-q", "-m" => 7, "-rem", "alla", "-cc", "-reduce", "$file.png~~", "$file.png~"; |
381 | system "pngcrush", "-q", "-m" => 7, "-rem", "alla", "-cc", "-reduce", "$file.png~~", "$file.png~"; |
| 382 | # system "pngnq <\Q$file.png~\E >\Q$file.png\E"; |
382 | # system "pngnq <\Q$file.png~\E >\Q$file.png\E"; |
| 383 | unlink "$file.png~~"; |
383 | unlink "$file.png~~"; |
| 384 | Storable::nstore $meta, "$file.pst"; |
384 | Storable::nstore $meta, "$file.pst"; |
| 385 | utime +(stat $file)[8,9], "$file.pst"; |
385 | utime +(stat $file)[8,9], "$file.pst"; |
|
|
386 | utime +(stat $file)[8,9], "$file.jpg"; |
| 386 | utime +(stat $file)[8,9], "$file.png~"; |
387 | utime +(stat $file)[8,9], "$file.png~"; |
| 387 | rename "$file.png~", "$file.png"; |
388 | rename "$file.png~", "$file.png"; |
| 388 | } |
389 | } |
| 389 | |
390 | |
| 390 | |
391 | |
